CNTSbAO TSVOb DATA RLLIAB1LIT> MACRO MUHX) .'0 -MAR -84 OttjV'i PAGE ,' 



SECi 0001 



.RHM„ 



8 

10 
11 

1 c 

1? 
14 
IS 
lb 
1 ' 
18 
19 
20 

M 
t- ■*. 

7> 1> 

23 

24 
25 
26 

27 
23 
29 
30 
51 
3? 
33 
54 
35 
36 
3" 
38 
39 
40 
41 
42 
43 
44 
45 
46 
4? 
48 
49 



IDENTIF ICATION 



PRODUCT CODE": AC Tfl.'VA MC 



PRODUCT NAME : CNTSEAO t lV oS DATA RhUABlLlTr 



PRODUCT DATfc • 09 APR 84 



MAINTAINtRs 



AUTHOR: 



1SS DIAGNOSTIC SERVICES 



DICK GORDON 



MODIFIED Bt : JAI<I BERG 



T^«E INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UlTHOUT 
NOTICE ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR AN> ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELlABILITr Of 
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SEQ 0018 



858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
86^5 
870 
871 
8 72 
873 
8 74 
675 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
690 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
"06 
907 
908 
909 
910 
911 
912 
913 
914 



2.3 EXAMPLES OP SOFTWARE DIAl OGUF 



CHANGE HW CD ? 

OUNITS CD) ? 

TSDB ADDRESS (0) 176000 ? 

VECTOR (0) 224 ? 

SELECT DRIVE 0-1 CO) ? 



IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
FOLLOWS: 



CHANGE SW CD ? 



2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 

A) RECEIVE PROMPT CDR>) 

B) ENTER STA/TES:1-2<CR> 

C) ANSWER HARDWARE QUESTIONS 

0) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE SW CD ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 

PRINT RECOVERABLE ERRORS (D N ? 

HALT AFTER EACH CMO CD N ? 

INHIBIT RECOVERY U) N ? 

BAD TAPE SPOT DETECTION (L) Y ? 

DISABLE INTERRUPTS CD N ? 

INHIBIT RFC ERROR REPORT (L"i N ? 

CHANGE CMO SEQUENCE CD N ? 

DEFAU.T SWITCH SETTINGS CD Y ? 



Y<CR> 

Y<CR> 
<CR> 

Y<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 



2*3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS 

A) RECEIVE PROMPT CDR>) 

B) ENTER STA/TES:1/FLA:L0E:IER:ISR:IDU<CR> 

C) ANSWER HARDWARE QUESTIONS. 

0) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE SW CD ? 

CLEAR COUNTERS CD N ? 

RESET RANDOM VARIABLES CD N ? 

PRINT RECOVERABLE ERRORS CD N ? 

HALT AFTER EACH CMO (D N ? 

INHIBIT RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L) Y ? 

DISABLE INTERRUPTS CD N 7 



Y<CR> 
Y<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
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2*0 IS A" nCATF.D BY THJ-. SUPERVISOR ON REQUEST OR CHOOSEN 

2M By PROGRmIh.ER TO RESIDE BETWEEN THE DIAG AND THE 

2*2 Stjrfcp VISOR. 
257. 

234 1-1.4 DIAGNOSTIC INFORMATION 

235 - 

-3'* 1.1.4.1 SCOPE 

239 THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 DRIVES. THE 2 DRIVES 

240 ARfc ASS1GNFD LOGICAL DRIVE N'JMBERS - 1 BY THE DIAGNOSTIC, 

242 THERE ARE 5 TESTS IN THIS PROGRAM: 

24 3 

244 TEST 1 - BASIC FUNCTIONS. 

245 TEST 2 - DATA MELIA* CLITY. 

246 TEST 3 - WRITE COUP A t ARIL ITY/WRITE UTILITY. 

247 TEST 4 - READ (.OMPATABILITY/READ UTILITY. 

248 TEST 5 - RANDOM/OPERATOR SELECTED SEQUENCE UTILITY. 
249 

250 1.1.4.2 ERROR RECOVERY 

2M 

2->2 ERROR RECOVERY IS PERFORMED ON READ. WRITE AND WRITE TAPE MARK FUNCTIONS 

2^3 LNLESS ERROR RECOVERY IS INHIBITED BY THE OPERATOR AT START UP TIME. 

2^4 THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 

?^5 AND 8 IN THE OPPOSITE DIRECTION). FOR MORE DETAILED INFORMATION ON ERROR RECOVERY 

p f > PROCEDL*ES, REFER TO SECTION 3.0 (ERROR REPORTING) OF THIS LISTING. 

256 1.1.4,3 WRITE ERROR RECOVERY 

260 THERE ARE 2 , SELECTABLE WRITE -ERROR RECOVERY ALGORITHMS USED BY THIS DIAGNOSTIC: 

261 l. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
26? 2, OPERATIONAL ALGORITHM 

26 3 

2^4 By DEFAULT THE DIAGNOSTIC SEL'CTS THE FIRST ALGORITHM TO IDENTIFY 

2<^ MEDIA RELATED WRITE ERRORS FRLtl OPERATIONAL ONES. 
*.?66 

26? T0 SELECT THE SECOND ALGORITHM: 

268 ANSWER • Y' TO CHANCE SW C L ) ? 

269 ANSWER • N* TO BAD TAPE SPOT DETECTION (L) Y ? 
270 

*'l\ IF ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 

?>?- ANO BOTH ALGORITHMS ARE BYPASSED. 

2^4 1.1.4*3*1 MEDIA/OPERATIONAL SELECTIVE WRITE -ERROR -RECOVERY ALGORITHM 

2 ; 6 SCOPE 

«•'* 'HIS ALGORITHM IDENTIFIES MEDIA RELATED WRITE ERRORS FROM 

27? OPERATIONAL ONES. 

280 

281 ALGORITHM 

2" 3 A WRITE RETRY SUBROUTINE IS CALLED B> THE RECOVERABLE ERROR SUBROUTINE WHICH IS 

284 ENTERED UPON DETFCTIION OF A WRITE RECOVERABLE ERROR. 

■'*£ Jht WRir ^ R£TRY SUBROUTINE ATTEMPTS TO REWRITE THE RECORD IN SAME SPOT ON TAPE 

28t> - 4" TIMES. 



IV 
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97? 

9 "5 

974 
97S 
976 
977 

978 

980 

981 

98? 

98? 

964 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

99 7 

998 

999 

1000 

,001 

100? 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

101? 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

102? 

10?3 

10?4 

1025 

1026 

1027 

X028 



3.1 ERROR REPORTING 



ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDF A DUMP 
OF THE FOLLOWING INFORMATION: 

ERROR ?. TEST 0, SUBTEST 0, PROGRAM COUNTER. UNIT t> , 

COMMAND. PREVIOUS COMMAND. PASS COUNT, OF 

RECORDS FROM BOT. RECORD READ COUNT, THE COMMAND PACKfeT, TSSR, 

TCC, TSBA, RFC. AND THE EXTENDED STATUS REGISTERS 

(SEE 2.3.14.1 FOR LIST OF COMMANDS). 

STANDARD ERROR REPORT FORMAT: 

CNTSE SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
(ASCII ERROR MESSAGE) 

XXX CMO FAILED - UNIT X PASS: XXXXX RECORD; XXXXX 
PREVIOUS CMD WAS XXX * RECORD READ: XXXXX + 



CMOPKT 


TSBA 


RFC 


TSSR 


TCC 


XXXXXX 


XXXXXX 


XXXXXX 


XXXXXX 


X 


XXXXXX 










XXXXXX 










XXXXXX 










XSTO 


XST1 


XST2 


XSH 


XST4 


XXXXXX 


XXXXXX 


XXXXXX 


XXXXXX 


XXXXXX 






♦ CAUTION * 





INTERPRET THAT "RECORD READ" COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COt*iT TRACKED BY THE DIAGNOSTIC. 

TAPE POSITION IS NOT NtCEbSARELY LOST. ERRORS IN READING THAT 

RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED. RECORD COUNT 

IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS 

NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT Of WHICH UNIT THE DIAGNOSTIC WAS HALTED 

BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A "PRINT" BE REQUESTED WHEN HALTING DIAG 

TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 

EXAMPLE OF AN ERROR REPORT: 

CNTSE SFT ERR 00009 TST 002 SUB 000 PC: OlOoOb 

RECOVERABLE ERROR 

WRT CMO FAILED - UNIT 2 PASS: 

PREVIOUS CMD WAS WRT 



2 RECORD: 254 



CMOPKT 

100005 

051766 

000000 

000371 

XSTO 

000350 



TSBA 
002324 



XST1 
O00OQ2 



RFC 
000000 



XST? 
1CQ004 



TSSK 
100210 



XST3 

OOOOQQ 



TCC 
4 



XST4 
040055 
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SEQ 0006 



3<.4 
34> 
346 
34/ 
348 
34 9 
3 r >0 
5S1 
352 
J53 
354 

356 
35/ 

356 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
3/0 
3/1 
37? 
373 
3 74 
3 75 
376 
377 
3 7d 
379 
380 
381 
382 
38.5 
384 
385 
386 
387 
388 
389 
390 
391 
392 
395 
394 
395 
J 96 
397 
398 
399 
400 



AND REHECTS THE SPECIF ICATI0N5 OK THE HARDWARE UNDER TEST. 

TO CLEAR CUMULATIVE COUNTS, ANSWER ' Y* TO; CLFAR COUNTERS U. ) 1 ?. 
THE BAD TAPE SPOTS COUNT IS THEN CLEARf-D WHEN WRITING THE. TAP V - FROM BOT 

If TEST 2 IS HALTED. THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
TS RESET TO <?ER0 AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 

SINCE Al.u WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 

BE ATTRIBUTED TO TRANSIENT NOISE. TRANSIENT ELECTRICAL MALFUNCTIONS, 

OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 

THE SAME RECORDS MUST BE WRITTEN V ROM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 

EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE: 



CNTSE SET ERR 0^009 ON UNIT 
RECOVERABLE ERROR 
WRT CMO FAILED UNIT PAS: 
PREVIOUS CMO WAS WRT 



00 TST 002 SUB 000 PC: 012100 



RECORDS 



CMOPKT 

100205 

026600 

OOOOOO 

003107 

XSTO 

000350 

SUSPECT 



TSBA 
002406 



RFC 

OOOOOO 



TSSR 

100210 



TCC 
4 



XST1 XST2 
000002 100400 
BAD SPOT AFTER 1 
SUSPECT BAD SPOT AFTER 2 
SUSPECT BAO SPOT AFTER 3 
SUSPECT BAD SPOT AFTER 4 
RETRY FAILED ON BAD SPOT 
SUSPECT BAD SPOT AFTER 1 
SUSPECT BAD SPOY AFTER 2 



XST3 XST4 

OOOOOO OOOOOO 

RETRY, 2 REPEAT 

RETRY, 1 REPEAT 

RETRY, 1 REPEAT 

RETRY, 3 REPEAT 
. .ERASED! 

RETRlr . 1 REPEAT 

RETRt, 1 REPEAT 



CNTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

PASS: 1 



WRT CMO FAILED UNIT 

PREVIOUS CMO WAS WRT 

CMOPKT TSBA RFC TSSR TCC 

100205 002406 OOOOOO 100210 4 

026600 

OOOOOO 

004000 

XSTO XST1 XST2 XST5 XST4 

000350 000002 100010 OOOOOO OOOOOO 

RECOVERED ON RETRY 1 

tC 

DR>PRI 



RECORD: 10210 



UNIT PASS: 
BYTES WRITTEN 
BYTES READ REV 
BYTES READ REV 



1 RECORD: 10210 
0,272,279,691 
0,301.125.654 
0,301,120,361 

WRT RCR RDF 
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1086 

l oft ; 

1088 
1089 
1090 
1091 
1092 
1093 
1094 
1 .095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
U05 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
113? 
1133 
1134 
1135 
1136 
1137 
1138 
11*9 
1140 
1141 
1142 



5.1.5.3 ERROR &t ■■ TERMINATION CLASS CODE ?, TAPF. STATUS Ai FRT 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAI MAY HAVE. SIGNIFICANCE 

10 THE PROGRAM. BITS OF INTEREST 1NCLU0E TMK, Rl.S, UX, RLL, EOT. 

ACTION TAKEN DEPENDS ON THE. TEST BEING EXECUTED. 

IF THE CONDITION I 1 j UNEXPECTED. THE ERROR IS REPORTED AND 

A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMAL l r. 



3.1.5.4 ERROR OA TERMINATION CLASS CODE 3, FUNCTION REJECT 



ARE 



THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST 
RMR. OFL. VCK. GOT. ILC. WLE . ILA, ANO N6A. THIS IS A FATAL 
DEVICE ERROR ANO THE OEvICE WILL BE DROPPED FROM THE TEST CYCLE 
UNLESS THE IDU OPTION IS USED. 

31.5.5 ERROR 09 - TERMINATION CLASS COOE 4, RECOVERABLE ERROR 

TAPE POSITION IS ONE RECORD BEYONO WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR ANO ISSUE THE APPROPRIATE RETRY COMMANO. IF RETRY LIMIT 
IS REACHED BEFORE THE. ERROR IS RECOVERED. RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 

3.1.5.6 ERROR 010 TERMINATION CLASS COOE 5, RECOVERABLE ERROR 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR ANO RE -ISSUE THE ORIGINAL COMMANO. IF RETRY LIMIT IS 

REACHED BEFORE THE ERROR IS RECOVERED. RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR $14 BELOW. 

3.1.5.7 ERROR Oil - TERMINATION CLASS COOE S, UNRECOVERABLE 'RROR 

TATE POSITION HAS BEEN LOST. THE ONL .' VALID RECOVERY PROCEDURE IS TO 
REWINO ANO START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWINO ANO 
RETRY THE COMMANO. OTHERWISE THIS IS A FATAL DEVICE ERROR ANO THE 
DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED 

3.1.5.8 ERROR 012 - TERMINATION CLASS COOE 7. FATAL SUBSYSTEM ERROR 

THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COHMANOS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THL 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON THE TYPE OF FATAL ERROR. THE OEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 



3.1.6 ERROR >13 - RFC NON-ZERO ERROR: 

IF, AFTER EXECUTION, THE, RESIDUAL FRAME COUNT 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED, 



IS NON-ZERO, THE. 
THE PROGRAM THEN 
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SEQ 00^3 



1145 
1144 
114b 
1146 
1147 
1148 
1149 
1 150 
1151 
1152 
1153 
1154 
1155 
1156 
115? 
1158 
1159 
1160 
1161 

116;? 

ll/>3 

1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1173 
1179 
1180 
1181 
118c 3 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 



PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
IS OPTIONAL, 

3.1.7 ERROR #14 - RETRY LIMIT EXCEEDED: 

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNI ESS THE IDU OPTION IS USED. 

ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 

3.1.8 ERROR #15 - TOO MANY INTERRUPTS: 

IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS F.RROR IS REPORTED. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED* 

3.1.9 ERROR 016 - CAPSTAN RUNAWAY; 

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINOOW AFTER LAST 

COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 

THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 

WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

3.1.10 ERROR #17 - DATA COMPARE ERROR: 

IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND. 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, ANO PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 
THE TOTAL OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 
HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 

3.2 ERROR HALTS 



ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG: HOE. THERE ARE NO OTHER HALTS. 



4,0 PERFORMANCE REPORT 



UNIT X PASSjXXXXX RECORD: XXXXX 
BYTES WRITTEN XXX, XXX, XXX , XXX 
BYTES READ REV XXX, XXX, XXX, XXX 
BYTES READ FWD XXX, XXX, XXX . XXX 

WRT 
RECOVERABLE ERRORS XXXXX 
UNRECOVERABLE ERRORS XXXXX 



RDR 


RDF 


XXXXX 


XXXXX 


XXXXX 


XXXXX 
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SEQ OOll 



Ml 

m:-s 

51o 
517 
518 
51^ 
520 
■21 
522 
523 

525 
526 

52 f 

528 
529 
550 
551 
552 
533 
534 
535 
536 
537 
538 
539 
54 
541 
542 
54 3 
544 
545 
546 

54 7 
548 
549 
550 
551 
552 
553 
554 
555 
556 

55 / 
558 
559 
560 
561 
562 
563 
564 
565 
566 

56 7 
568 
569 
570 



2,0 OPERATING INSTRUCTIONS 



THIS SECTION 
f-OR DETAILED 

COMMANDS 



CONTA T M'^ a BRIH DESCRIPTION Of THE RUNTTME SERVICES, 
INFORMATION, REFER TO THE XXDP f USER'S MANUAL. 



THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERf 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 



COMMAND 

START 
RESTART 

CONTINUE 
PROCEED 

EXIT 
ADD 

DROP 
PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



EFFECT 



•C) 



START THE DIAGNOSTIC FROM AN INITIAL STAlt. 

START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER 

CONTINUE FROM AN ERROR HALT 

RETURN TO XXDP* MONITOR (XXDP* OPERATION ONLY!) 

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC) 

TYPE A LIST OF ALL DEVICE INFORMATION 

TYPE THE STATE OF ALL FLAGS 

CLEAR ALL FLAGS 



A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF "START', 

OPERATOR COMMANDS 



SO 



THE TSV05 DIAGNOSTIC IS A SBC 11/21* DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RLNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
PDP-11 XXDP* PROGRAMMERS MANUAL. THE USER ENTRY IS IN QUOTES, 

800T THE DIAGNOSTIC XXDP MEDIA 



CHMDLBO XXDP* OL MONITOR 28K 

BOOTED VIA UNIT 

ENTER DATE (DD-MMM-YR; : " 

RESTART ADDRESS: 153726 

50 HZ? N " <CR> " 

LSI? N " Y<CR> " 

THIS IS XXDP*. TYPE "H" OR 

R NTSEAO 

NTSEAOBINDRS LOADED 



•vJTER DATE OR JUST <CR> 



"H/l " FOR DETAILS 



DIAG. RUN 
CNTSE-A.Q 



TIME SERVICES REV 0, APR 79 
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SEQ 00*5 



1257 
1258 
1259 

1260 
1261 
1262 
1263 
1264 
1265 
126b 
1267 
1268 
1269 
12/0 
1271 
1272 
12/3 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 



► WRITE DATA. 

♦ WRITE RF.TRf. 

SUBTEST 8 - READ REV RETRY. 

♦ READ REVERSE. 

♦ READ NEXT REVERSE. 

♦ READ NEXT FORWARD. 



SUBTEST 9 - READ FWD RETRY. 

♦ READ FORWARD. 

♦ READ PREVIOUS 

♦ READ PREVIOUS 



FORWARD 
REVERSE 



SUBTEST 10 



CLEAN. 

♦ CLEAN. 

♦ REWIND. 



SUBTEST 11 - WRITE/VERIFY SWAPPED DATA BrTES. 

♦ WRITE/VERIFY EVEN LENGTH CRECORD 1) 

♦ WRITE/VERIFY ODD LENGTH (RECORD 2). 

♦ SET DATA BYTE SWAP. 

♦ WRITE/VERIFY EVEN LENGTH (RECORD 3) 

♦ WRITE/VERIFY ODD LENGTH (RECORD 4). 



SUBTEST 12 



♦ CLEAR DATA BYTE SWAP. 

READ SWAPPED DATA BYTES. 

♦ READ REV RECORD 4, 

♦ READ REV RECORD 3. 

♦ SET DATA BYTE SWAP. 

♦ READ REV RECORD 2. 

♦ RE J »1EV RECORD 1. 

♦ REM) FWD RECORD 1. 
+ READ FWD RECORD 2. 

♦ CLEAR DATA BYTE SWAP, 

♦ READ FWD RECORD 3. 

♦ READ FWD RECORD 4. 
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SEQ 0026 



1294 
1295 
1296 
1297 
1298 
1299 

:30o 

1501 
1 302 

1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
1311 
1312 
1315 
1314 
1315 
1316 
1317 
131« 
1319 
1320 
1321 
1 322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
133? 
1332. 
1339 
1340 
1341 
] 342 
1343 
1344 
1345 
1346 
134/ 
1348 
1349 
1350 



^ y 



TEST 2 



5.3 



TEST 3 - 



5.4 



5.5 



TEST 4 - 



TEST 5 - 



DATA RELIABILITY, 

1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS; 

SET CHARACTERISTIC 40 

REWIND 

WRITE 64 RECORDS OF RANDOM LENGTH AND DATA 

2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND ARE 
EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 

LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED. 

3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 

NOTE: IF A RESTART COMMAND IS USfcP TO INITIATE 

TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED 



WRITE COMPATABILITY 'WRITE UTILITY. 

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 



READ COMPATABILITY/READ UTILITY. 

REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE, 

RANDOM/OPERATOR SELECTED COMMAND Si QUENCE . 

A DEFAULT SEQUENCE OF HEWIND/WRITE/READ REV/READ r - M 'D/RuWlNU 
OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 
AND RECORD LENGTH OF 2048 BYTES. OPERATOR CAN ENT«ER 
SEQUENCE OF COMMANDS UP TO SEVEN IF THEY DON'T WANT 
DEFAULT SEQUENCE, 



6.0 DEVICE INFORMATION TABLES 



6.1 GENERAL 



THE TS05 TAPE SUBSYSTEM CONSISTS 0^' A TSV05 Q-BUS 
CONTROLLER CONNECTED TO A TS05 DRIVE. FROM A SOFTWARE VIEWPOINT 
THIS CONFIGURATION IS UNIQUE (FOR A U-BUS DEVICE') IN A NUMBER 
OF WAYS: 



A. ONlY ONE REGISTER 
DATA BUFFER), 

B. TWO REGISTERS MAY 
REGISTER AND TAPE 



MAY Br. WRITTEN - TSDB (TAPE SYSTEM 



BE READ - 
SYSTEM BUS 



TSSR AND 
ADDRESS 



1SBA (TAPE 
REGISTER), 



SYSTEM STATUS 



C» COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN WHICH POINT TO COttMANO PACKETS SOME 
UHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 
THE TS05 SUBSYSTEM TO FETCH THE WORDCS) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 



CNTSFAO -SVO'.i DATA RfcliAbU.lt> MACRO Mi^OO .'0 MAR -84 08:53 PAGE r > 5 

*it/j 0014 

68S TSOB ADDRESS (0) 176000 f 
b8b 

6fi' VECTOR (0) 224 ? 
688 

*89 SF.I.ECT DRI/f 1 (0) ? 

^1 THE VALIOITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 

•^ By SETTING THE FLAG "AHR" ON A STA. RES OR CON COMMAND. 

b93 THE SO CALLED AUTO DROP *TODE SHALL THEN BE EXECUTED AFTER TMfc INIT COD^ 

6^ AND BEFORE THE HARDWARE iXSTS ARE RUN. THAT CODE FIRST TESTS THE ADRRRSS 

^5 OF THE TSDB(S). IF NO RESPONSE, IT DROPS THE UNITC3) IMMEDIATELY 

6% WITH THE FOLLOWING MESSAGE: 

697 

698 BUS TRAP AT XXXXXX ( XXXXXX • TSDB AD ) 

699 INTERFACE BAD OR NOT SET TO A80VE ADDRESS, 

700 

? 01 ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT APE NOT READt OP NOT 

"OJ ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 

705 BE RUN ON RESPONDING UNITS. 

704 

705 IF THE "ADR" FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 

? 06 DRIVE IS CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

70? TO WARN THE OPERATOR OF DRIVES BEING NOT READY OR OFF-LINE. THESE DRIVES 

703 SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 

709 

710 g % 2 SOFTWARE PARAMETERS 

711 

713 THE FOLLOWING (X^STIONS ARE ASKED WHEN ONE ANSUIERS *ES TO THF CHANGE SOFTWARE 

7U QUESTION ON A START, RESTART, OR CONTINUE. 

;15 THEY ALLOW FLEXA8ILIT> IN THE WAY THE PROGRAM BEHAVES. 

< 16 

717 CLEAR COLTERS (L) Y ? 

719 RESET RANOOM VARIABLES CD N > 

7^1 PRINT RECOVERABLE ERRORS (L) N ? 

3 25 HALT AFTER EACH CMD CD N ? 

J25 INHIBIT RECOVERY (L) N ? 

726 

7^7 BAD TAPE SPOT DETECTION CD Y ? 

'CO 

ZV* DISABLE INTERRUPTS CD N ? 

730 

731 INHIBIT RFC ER.10R REPORTS CD N ? 

J|* CHANGE CMO SEQUENCE (L> N ? (SEE NQl'Eii) 

735 DEFAULT SWITCH SETTINGS CD Y ? 

t 56 

ll 7 100IPS CD N ? 

738 

739 WRITE BUFFERING CD N ? 

740 

7 *1 READ BUFFERING CD N ? 
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SFO 001 



74J> 
'4 3 

744 
?45 

74 1> 

74 ' 

"46 
^49 
'50 
751 
752 
753 
754 
755 
756 
75? 
"?58 
759 
760 
761 
^62 
763 
764 
765 
766 
767 
766 
769 
770 
771 
772 
773 
774 
775 
7 76 
777 
7 78 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 

79ft 



ANSWERING NO TO THE Dt F AW. T SWITCH QUES T ION Will CAUSE THE 
100 IPS QUESTION TO HF ASKF.D. 

ANSWERING US TO THF 100 IPS QUESTION WILL INHIBI T THE t.AS T 
TWO QUESTIONS. 

ANSWERING NO TO THE 100 IPS QUESTION WILL CAUSE THE WRITf 
BUFFERING QUESTION TO BE ASKED. 

ANSWERING YES TO THE WRITE BUFFERING QUESTION WILL INHIBI T THE 
LAST QUESTION. 

ANSWERING NO TO THE WRITE BUFFERING QUESTION WILL CAUbE THE 
READ BUFFERING QUESTION TO BE A5KED. 

NOTE I j THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 

OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
IF THIS QUESTION WAS ANSWERED Y, THE FOLLOWING 
QUESTIONS MUST BE ANSWERED OP DEFAULTED WITH A <CR> ONL 1 



CHARACTERISTICS CODE CO) 40 ? 


(0,20,40.200) (OCTAL) 


CMD/2 (D) 13 ? 


(1-27) 


(DECIMAL) 


BRF COUNT (D) 1 ? 


(1-2K) 


(DECIMAL) 


* OF OPERATIONS CD) 1 ? 


U-32K) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 


CMD/3 (D) 4 ? 


(1-27) 


(DECIMAL) 


BRF COUNT (0) 2048 ? 


(1-2K) 


(DECIMAL) 


♦ OF OPERATIONS CD) 32000 ? 


( 1 - 32K ) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 


CMD/4 (D) 3 ? 


(1-27) 


(DECIMAL) 


BRF COUNT (D) 2048 7 


U-2K) 


(DECIMAL) 


♦ OF OPERATIONS (D) 32000 ? 


( 1 - 32K ) 


(DECIMAL) 


PATTERN CD) 7 ? 


(0-8) 


(DECIMAL) 


CMO/5 CD) 2 ? 


(1-27) 


(DECIMAL) 


BRF COUNT (D) 2048 ? 


(1-2K) 


(DECIMAL) 


OF OPERATIONS (D) 32000 ? 


( 1 - S2K ) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 


CMD/6 (D) 13. ? 


(1-27) 


(DECIMAL) 


BRF COUNT (D) 1 ? 


(1-2K) 


(DECIMAL) 


* OF OPERATIONS (0) 1 ? 


(1-32K) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 


CMO/7 (D) 27. ? 


(1 27) 


(DECIMAL) 


BRF COUNT (D) 2048 ? 


(1-2K) 


(DECIMAL) 


♦ OF OPERATIONS (D) 32000 ? 


(1-32K) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 


CMO/8 (D) 27. ? 


(1-27) 


(DECIMAL) 


BRF COUNT (D) 2048 ? 


(1-2K) 


(DECIMAL) 


« OF OPERATIONS (D) 32000 ? 


(1-32K) 


(DECIMAL) 


PATTERN (D) 7 ? 


(0-8) 


(DECIMAL) 



NQKs THE PROGRAM AUTOMATICALLY INSERTS A CHARACTERISTIC COOE 0? 

AS THE FIRST COMMANO IN THE SEQUENCE TABLE. IF A 
DIFFERENT CHARACTERISTIC IS DESIRED, THE OP&RATOfl SHOU,Q 
ENTER THAT CHARACTERISTIC CQQE* A TOTAL Q* 7 COMMANDS 



40 



IV 
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SEQ 0016 



799 
t?00 
801 
80c? 
803 
804 
80S 
c<06 
60? 
808 
809 
81C 
811 
81.? 
813 
814 
815 
616 
817 
818 
819 
820 
821 
822 
823 
824 
825 
626 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
655 



MAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTIC'* 
COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN ' 
COMMANOS, AN END COMMAND MUST BE ENTERED AND TmEN A 
CONTROL 2 Ct/) CAN BF ENTFRtD TO TERMINATE SOFTWARE DIALOGUE 



2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 

CODE COMMAND DESCRIPTION 



1 * 


DRI 


c ' 


RDF 


3 ■ 


RDR 


4 « 


• WRT 


5 • 


■ WTV 


6 > 


■ SRF 


7 - 


SRR 


8 • 


• RNR 


9 ■ 


■ RNF 


10 • 


• RPF 


11 • 


• RPR 


12 ■ 


• WRR 


13 - 


■ RWO 


14 ■ 


■ MBR 


15 • 


• WTM 


16 ■ 


• WTR 


17 - 


• SFF 


18 


i SFR 


19 « 


■ GES 


20 « 


• ERS 


21 ■ 


• UNL 


22 • 


• CLN 


23 « 


' SCH 



SPACE FWD, READ REV. 
READ FWD. SPACE REV. 
SPACE REV, READ FWO . 
READ REV, SPACE FWD. 



25 

26 
27 



JMP 

DLY 
END 



DRIVE INITIATE. 

READ FORWARD. 

REAO REVERSE. 

WRITE. 

WRITE/VERIFf. IE. WRITE N RECORDS} READ REVERSE AND CHEC* 

N RECORDS Of DATAj READ FORWARD ANO CHECK N RECORDS. 

SPACE RECORDS FORWARD. 

SPACE RECORDS REVERSE 

READ NEXT REVERSE, IE 

REAO NEXT FORWARD, IE 

READ PREVIOUS TWO, IE 

READ PREVIOUS REV, IE 

WRITE RETRY. 

REWIND. 

MESSAGE BUFFER RELEASE. 

WRITE TAPE MARK. 

WRITE TAPE MARK RETRY. 

SPACE TILES FORWARD. 

SPACE FILES REVERSE. 

GET EXTENDED STATUS. 

ERASE 3 INCHES OF TAPE. 

UNLOAO. 

CLEAN TAPE 

SET DEVICE CHARACTERISTIC. WHERE BRF-200. 40, 20. 0. 

200 ■ ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 

40 - ENABLE ATTENTION INTERRUPTS. 

20 • ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

SEE TSV05/TS05 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 

JUMP TO THE NTH COMMANO IN THE COMMANO SEQUENCE 

TABLE, WHERE N IS DEFINED IN THE BRF FIELD. 

THE NLTBER OF JUMPS IS ENTERED IN THE * OF OPERATIONS FIELD 

DELAY "N" MILISECONOS WHERE N IS DEFINED IN 

THE ♦ OF OPERATIONS. 

END OF COMMANO SEQUENCE, 



2,2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN DESCRIPTION. 



INCREMENTING PATTERN. 
ALL "l M, S PATTERN. 
ALL M 0"*S PATTERN. 
"1" BIT WALKING FROM 
"0" BIT WALKING FROM 
ALTERNATING "1" ANO 
ALTERNATING BYTES OF 
RANDOM DATA PATTERN, 



377 



R TO L IN A FIELD OF "0 
R TO L IF A FIELD OF •• 1 
'0" BIT* WITH ALTERNATE 
000 AND 377, 



" S. 
' S. 
BUEb 



COMPLIMENTED 
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SEQ 0018 



856 
859 
860 
861 
862 
863 
864 
865 
866 
867 
«68 
869 
870 
871 
8 72 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
r *06 
907 
908 
909 
910 
911 
91? 
913 
914 



3 EXAMPLES OF SOFTWARE DIAl OGUfc 

CHANGE HW CD ? 

OUNITS CD) ? 

TSDB ADDRESS (0) 176000 V 

VECTOR (0) 224 ? 

SELECT DRIVE 0-1 CO) ? 



IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
FOLLOWS: 

CHANGE. SW (L) ? 



2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 

A) RECEIVE PROMPT CDR>) 

B) ENTER STA/TES:1-2<CR> 

C) ANSWER HARDWARE QUESTIONS 

0) PROCEED WITH THE FOLLOWING DIALOGUE? 

CHANGE SW CD ? Y<CR> 

CLEAR COUNTERS (D N ? Y<CR> 

RESET RANDOM VARIABLES (L) N ? <CR> 

PRINT RECOVERABLE ERRORS CD N ? Y<CR> 

HALT AFTER EACH CMO CD N ? <CR> 

INHIBIT RECOVERY a) N ? <CR> 

BAD TAPE SPOT DETECTION (L) Y ? <CR> 

DISABLE INTERRUPTS (L) N ? <CR> 

INHIBIT RFC ERROR REPORT CD N ? <CR> 

CHANGE CMO SEQUENCE CD N ? <CR> 

DEFAW.T SWITCH SETTINGS CD Y ? <CR> 

2,3,3 TQ SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 

A) RECEIVE PROMPT CDR>) 

B) ENTER STA/TES;1/FLA:L0E:IER:ISR:IDU<CR> 

C) ANSWER HAROWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE SW CD ? 

CLEAR COUNTERS CD N ? 

RESET RANDOM VARIABLES (L) N ? 

PRINT RECOVERABLE ERRORS CD N ? 

HALT AFTER EACH CMO CD N ? 

INTIBIT RECOVERY (D N ? 

BAD TAPE SPOT DETECTION CD Y ? 

DISABLE INTERRUPTS CD N ? 



Y<CR> 
y<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 



IV 
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5EQ 0019 



915 
916 
917 
918 
919 
920 
921 
*22 
923 
924 
925 
926 
92? 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
933 
939 
940 
941 
942 
943 
944 
945 
946 
94 7 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
9 70 
971 



INHIBIT RFC ERROR REPORT (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 
DEFAULT SWITCH SETTINGS (L) Y ? 



f'CR* 

N<CR.- 

<CR> 



c',3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 



Aj 
B) 

C) 
U) 



RECEIVE PROMPT (DR>) 

ENTER STA/TES:5/FLA;IER;ISR;IDU/F0P;10O0<CR> 

ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE; 



CHANGE SW CD ? 

CLEAR COUNTERS CD N ? 

RESET RANDOM VARIABLES (D N ? 

PRINT RECOVERABLE ERRORS CD N 

HALT AFTI-R EACH CMD (L) N ? 

INHIBIT RECOVERY CI.) N ? 

BAD TAPE SPOT DETECTION CD Y ? 

DISABLE INTERRUPTS CD N ? 

INHIBIT RFC ERROR REPORT CD N ? 

CHANGE CMD SEQUENCE (L) N ? 

CHARACTERISTICS CODE 0) 40 ? 

CMO/2 CD; 5 ? 

BRF COWT (D) 2048 ? 

* OF OPERATIONS CD) 10 ? 
PATTERN CD) 7 ? 

CM0/3 CD) 5 ? 
BRF CD) 2048 ? 

* OF OPERATIONS (0) 10 ? 
PATTERN CD) 7 ? 

CMO/4 CO) 5 ? 
BRF CD) 2048 ? 



Y<CR> 
» <CR> 
N<CR> 
N<CR> 
N<CR* 
N<CR> 
N<CR> 
Y<CR> 
y<CR> 
Y<CR> 
40<CR> 

13<CR> 
1<CR> 
1<CR> 
1<CR> 
4<CR> 
1000<CR> 
10000<CR> 
1<CR> 

27<CR> 
<tZ> 



2.4 EXECUTION TIMES 



2.4.1 SYSTEM CONFIGURATION 



PDP11/21* 
MEMORY 
CONSOLE 
TSV05/TS05 



2.4.2 TEST EXECUTION TIME C2400 FT. TAPE) 



(REWIND) 



CWRITE) 



CEND) 



THE TIME TO EXECUTE THE FIVE TESTS IS APPROXIMATELY 4 HOURS 
NOTE; THE EXECUTION TIMES G1V£N IS FQR ONE DRIVE OPERATION. 
3,0 ERROR INFORMATION 
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972 

974 
975 
976 
977 
978 
•479 

980 

981 

98? 

98? 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

\ 001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 



3,1 ERROR REPORTING 



ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND 0X7 INCLUDF A DUMP 
OF THE FOLLOWING INFORMATION: 

ERROR *> t TEST O t SUBTEST 0, PROGRAM COUNTER, UNIT t> , 

COMMAND, PREVIOUS COMMAND, PASS COUNT, OE 

RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 

TCC, TSBA, RFC, AND THE EXTENOED STATUS REGISTERS 

(SEE 2.3.14.1 FOR LIST OF COMMANDS). 



STANDARD ERROR REPORT FORMAT: 

CNTSE SFT ERR XXXXX TST 
(ASCII ERROR MESSAGE) 
XXX CMO FAILEO - UNIT X 
PREVIOUS CMD WAS XXX 



XXX SUB XXX PC: XXXXXX 



CMDPKT 

XXXXXX 

XXXXXX 

XXXXXX 

XXXXXX 

XSTO 

XXXXXX 



TSBA 
XXXXXX 



XST1 
XXXXXX 



RFC 
XXXXXX 



XST2 
XXXXXX 



PASS: 

TSSR 
XXXXXX 



XST3 
XXXXXX 



XXXXX RECORD: XXXXX 
♦ RECORD READ: XXXXX ♦ 
TCC 
X 



XST4 
XXXXXX 



* CAUTION * 

INTERPRET THAT "RECORD READ" COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC. 

TAPE POSITION IS NOT NECEbSARELY LOST. ERRORS IN READING THAT 

RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED. RECORD COUNT 

IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS 

NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHICH UNIT THE DIAGNOSTIC WAS HALTED 

BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A "PRINT" BE REQUESTED WHEN HALTING DIAG 

TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 

EXAMPLE OF AN ERROR REPORT: 



CNTSE SFT ERR 00009 1ST 002 SUB 000 PC: 01060b 

RECOVERABLE ERROR 

WRT CMO FAILED - UNI T 2 PASS: 

PREVIOUS CMD WAS WRT 



2 RECORD: 254 



CMOPKT 

100005 

051766 

000000 

000371 

XSTO 

000350 



TSBA 
002324 



XST1 
000002 



RFC 
000000 



XST2 

1CQ0Q4 



TSS* 
100210 



XST3 
000000 



TCC 
4 



XST4 
040055 



r 
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SEQ 00*1 



1029 

1050 

1051 

105? 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
104^ 
1043 
:044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
105? 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
10/5 
10/6 
10/7 
10/8 
1079 
1080 
1081 
1082 
1083 
1084 

ioas 



3.1.1 ERROR 01 - COMMAND PACKET AODRF.SS NOT ON A MODULO 4 BOUNDRT: 

U THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPER! 1. 
THIS IS A SYSTEM EATAL ERROR AND THE PROGRAM MUST BE REl OAQED TO 

CORRECT IT. 

3.1.2 ERROR 02 - TS05 NOT READY : 

BEFORE ANY COMMAND IS ISSUED TO THE TS05, THE SUBSYSTEM READi 
BIT IN THE TSSR IS CHECKED, IE THE SSR IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
OPTION IS USED. 

3.1.3 ERROR 03 - NO RESPONSE ERROR: 

ONCE THE TSDB IS LOADED. ThE TS05 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 
DEVICE ERROR ANO THE DEVICE UILL BE DROPPED FROM THE TEST SEUUENCE 
UNLESS THE IDU OPTION IS USED. 

3.1.4 ERROR 04 - NO INTERRUPT ERROR: 

COMMANO WAS ISSUED ANO NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 

3.1.5 SPECIAL CONOITION ERRORS: 

IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 
SPECIAL CONOITION BIT TO SET. THE PROGRAM UILL SELECT ONE OF 
8 ERROR HANOLING ROUTINES, DEPENOING ON THE TERMINATION CLASS 
CODE. 

THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 

3.1.5.1 ERROR 05 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 

THE ERROR 15 REPORTED. A HARD ERROR IS LOGGED 
AND THE PROGRAM PROCEEDS NORMALLY. 

3.1.5.2 ERROR 06 - TERMINATION CLAS3 CODE 1, ATTENTION CONOITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNOERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 

ERROR AND THE DEVICE WILL Be DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 
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SEQ 0022 



1086 

i oft ; 

1088 
1089 
1090 
1091 
109c? 
1093 
1094 
1 .095 
1096 
109/ 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
111.? 

li n 

1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
112/ 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 



5.1.5.3 ERROR <?/ - TERMINATION CLASS CODE ?, TAPR STATUS A! ERT 

A STATUS CONOITION HAS BEEN ENCOUNTERED THAI MAY HAVE. SIGNIFICANCE 

TO THE PROGRAM. BITS OF INTEREST INCLUDE THK, RLS, LFT, RLL, EOT. 

ACTION TAKEN DEPENDS ON THE. TEST BEING EXECUTED. 

If THE CONDITION 15 LNEXPECIED, THE HRROR IS REPORTED AND 

A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMAi.L r. 

3.1.5.4 ERROR Oft TERMINATION CLASS COOE 3. FUNCTION REJECT 

THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
RMR. OFL. VCK. BOT. ILC, WLE , ILA f ANO NBA. THIS IS A FATAi 
DEVICE ERROR ANO THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE- 
UNLESS THE IOU OPTION IS USED. 

31,5.5 ERROR 09 - TERMINATION CLASS COOE 4, RECOVERABLE ERROR 

TAPE POSITION IS ONE RECORD BEYONO WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMANO. IF RETRY LIMIT 
IS REACHED BEFORE THE. ERROR IS RECOVERED. RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW, 

3.1.5.6 ERROR 010 TERMINATION CLASS COOE 5, RECOVERABLE ERROR 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND RE -ISSUE THE ORIGINAL COMMANO. IF RETRt LIMIT IS 

REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 

3.1.5.7 ERROR Oil - TERMINATION CLASS COOE 4, UNRECOVERABLE "RROR 

TAFE POSITION HAS BEEN LOST. THE ONL .' VALID RECOVERY PROCEDURE IS TO 
REWIND ANO START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWINO ANO 
RETRY THE COMMANO. OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 
DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IOU OPTION 15 USED 

3.1.5.8 ERROR 012 - TERMINATION CLASS COOE 7. FATAL SUBSYSTEM ERROR 

THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COt^ANOS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSS* REGISTER FOR ADDITIONAL I^OR- 
MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

3.1.6 ERROR 013 - RFC NON-ZERO ERROR; 

IF, AFTER EXECUTION. THE. RESIDUAL FRAME COUNT IS NON-ZERO. THE. 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
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SEQ 00*3 



1145 
1144 
114b 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1103 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1173 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1180 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 



PROCEEDS NORMALLY. THE REPORTING AND LUGGING Or" THE lib ERRORS 
IS OPTIONAL, 

3.1,7 ERROR #14 - RETRY LIMIT EXCEEDED: 

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE Of Via 
WILL BE DROPPED FROM THE TEST CYCLE UNI ESS THE IDU OPTION IS USED, 

ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 

3.1.6 ERROR 0X5 - TOO MANY INTERRUPTS: 

IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS F.RROR IS REPORTED. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

3.1.9 ERROR 016 - CAPSTAN RUNAWAY: 

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 

THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 

WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

3.1.10 ERROR 017 - DATA COMPARE ERROR: 

IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND. 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA UAS, AND PRINTS THE BYTE ANO RECORD NUMBER THE ERROR OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 
THE TCFAL OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 
HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY, 

3,2 ERROR HALTS 



ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE, THERE ARE NO OTHER HALTS. 



4.0 PERFORMANCE REPORT 



UNIT X PASS:XXXXX RECORD: XXXXX 
BYTES WRITTEN XXX , XXX , XXX, XXX 
BYTES READ REV XXX , XXX , XXX, XXX 
BYTES READ FWD XXX. XXX, XXX . XXX 

WRT 
RECOVERABLE ERRORS XXXXX 
UNRECOVERABLE ERRORS XXXXX 



RDR 


RDF" 


XXXXX 


XXXXX 


XXXXX 


XXXXX 
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SFQ 00>4 



1200 
1201 
1202 
120* 
1204 
1205 
1206 
120/ 
1208 

1209 

1210 
1211 
1212 
1213 
1214 
1215 
1216 
121",' 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
12 38 
1239 
1240 
124 1 
1242 
3 243 
1244 
1245 
1246 
124 7 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 



SPEC CONt) HARD \ ATAi COMPARE 
XXXXX XXXXX XXXXX XXXXX 



5.o test summaries; 



5.1 



TEST 1 



BASIC FUNCTIONS. 

EXECUTES AND VERIFIES CORRECT COMPLETION OF At... TS05 FUNCTIONS 

SUBTEST 1 - SET CHAR f DRIVE INIT, GET STATUS. 

♦ SET CHARACTERISTIC 200. 

♦ DRIVE INITIATE. 

> SET CHARACTERISTIC 20. 

♦ GET STATUS 

♦ SET CHARACTERISTIC 40. 

♦ PRINT TS05 MICROCODE LEVEL (PASS 1 ONLY) 



SUBTEST 


2 


- REWIND. 

♦ REWIND. 

* REWIND AT BOT. 


SUBTEST 


3 


- WRITE/VERIFY. 

♦ WRITE/VERIFY PATTERN 1 

♦ WRITE/VERIFY PATTERN 2 

♦ WRITE/VERIFY PATTERN 3 

♦ WRITE/VERIFY PATTERN 4 

♦ WRITE/VERIFY PATTERN 5 

♦ WRITE/VERIFY PATTERN 6 
- WRITE/VERIFY PATTERN 



SUBTEST 4 



SUBTEST 5 



SUBTEST 6 



WRITE TAPE MARK. ERASE, 

♦ WRITE TAPE MARK. 

♦ URITE 10 RECORDS 

♦ ERASE 10 TIMES 

♦ WRITE TAPE MARK. 

♦ WRITE TAPE MARK RETRY. 

SPACE FILES, 

♦ SPACE 2 FILES REVERSE. 

♦ SPACE 2 FILES FORWARD. 

♦ SPACE 2 FILES REVERSE. 

♦ SPACE 2 FILES FORWARD, 



SUBTEST 7 



SPACE RECORDS. 

♦ REWINO. 

♦ SPACE 7 

♦ SPACE 7 

♦ SPACE 7 

♦ SPACE 7 

WRITE RETRI. 

► REWIND, 



FORWARD 
RECORDS REVERSE 
RECORDS FORWARD 
RECORDS REVERSE 
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SFQ 0025 



1257 
1258 
1259 

1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
12 70 
12 71 
12 72 
1273 
1274 
1275 
12/6 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1 290 
1291 
1292 



♦ WRITE 

♦ WRITE 



DATA. 
RETRf 



SUBTEST 8 - READ REV RETRY. 

♦ READ REVERSE. 

♦ READ NEXT REVERSE. 

♦ READ NEXT FORWARD. 

SUBTEST 9 - READ FWD RETRY. 

♦ READ FORWARD. 

f READ PREVIOUS FORWARD 

♦ READ PREVIOUS REVERSE 



SUBTEST 10 



SUBTEST 11 



SUBTEST 12 



CLEAN. 

♦ CLEAN. 

♦ REWIND. 

WRITE/VERIFY SWAPPED DATA BrTF.S. 

♦ WRITE/VERIFY EVEN LENGTH (RECORD 1J 
+ WRITE/VERIFY ODD LENGTH (RECORD 2). 

♦ SET DATA BYTE SWAP. 

♦ WRITE/VERIFY EVEN LENGTH (RECORD 3 ) 

♦ WRITE/VERIFY ODD LENGTH (RECORD 4). 

♦ CLEAR DATA BYTE SWAP. 

READ SWAPPED DATA BYTES. 

♦ READ REV RECORD 4. 

♦ READ REV RECORD 3. 

♦ SET DATA BYTE SWAP. 

♦ READ REV RECORD 2. 

♦ RE J ,7EV RECORD 1. 

♦ REhlJ FWD RECORD 1. 

♦ READ FWD RECORD 2. 

♦ CLEAR DATA BYTE SWAP. 

♦ READ FWD RECORD 3. 

♦ READ FWD RECORD 4. 
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SEU 0026 



1294 
1295 

1296 
1297 

1298 
1299 

:3oo 

1501 
1302 

1303 
1304 
1305 
1306 
130 7 
1306 
1309 
1310 
1311 
1312 
1315 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
133? 
13.V, 
1339 
1340 
1341 
1 342 
134 3 
1344 
1345 
1346 
134 7 
1348 
1349 
133G 



TEST 2 



5.3 



TEST 3 



5.4 



5.5 



TEST 4 - 



TEST 5 - 



DATA RELIABILITY. 

1. THE TAPE 15 INITIATED WITH THE FOLLOWING COMMANDS: 

SET CHARACTERISTIC 40 

REWIND 

WRITE 64 RECORDS OF RANDOM LENGTH AND DATA 

2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND ARE 
EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 

LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED, 

3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 

NOTE; IF A RESTART COMMAND IS USEH TO INITIATE 

TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED 



WRITE COMPATABILITY 'WRITE UTILITY. 

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 



READ COMPATABILITY/READ UTILITY, 

REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 

RANDOM/OPERATOR SELECTED COMMAND SEQUENCE. 

A DEFAULT SEQUENCE OF ^EWIND/WRITE/READ REV/READ VMD/Ri:WlNU 
OF ENTIRE TAPE IS EXECUTED WITH RANOOM PATTERN 
AND RECORD LENGTH OF 2048 BYTES. OPERATOR CAN ENT^R 
SEQUENCE OF COMMANDS UP TO SEVEN IF THEY DON'T WANT 
DEFAULT SEQUENCE. 



6.0 DEVICE INFORMATION TABLES 



6.1 GENERAL 



THE TS05 TAPE SUBSYSTEM CONSISTS OF A TSV05 Q-BUS 
CONTROLLER CONNECTED TO A TS05 DRIVE, FROM A SOFTWARE VIEWPOINT 
THIS CONFIGURATION IS UNIQUE (FOR A Q-BUS DEVICE) IN A NUMBER 
OF WAYS: 



A. ONlY ONE REGISTER 
DATA BUFFER). 

B. TUO REGISTERS MAY 
REGISTER AND TAPE 



MAY B-. WRITTEN •• TSDB (TAPE SYSTEM 



BE READ - 

SYSTEM BUS 



TSSR AND 
ADDRESS 



1SBA (TAPE 
REGISTER). 



SYSTEM STATUS 



C, COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN WHICH POINT TO COttMAND PACKETS SOME 
WHERE IN CPU MEMORY, THE COMMAND POINTER IS USED BY 
THE TS05 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. TbiE WQRQS WITHIN THE COMMAND PACKET ARE: 



r i j 
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ISM 

13fV 1. COMMAND WORD 

1553 2. LOW ORDER BUFFER ADDRESS 

1M.4 J, HIGH ORDER BUFFER ADDRESS 

1555 4. BYTE COUNT 

13bt> 

15V 0. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC ■ 

1?53 ESSARY TO DETERMINE WHETHER: 

1559 1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMANO, 

V560 i>. THE PREVIOUS COMMANO WAS EXECUTED WITHOUT ERROR. 

1561 IF EITHER Of THE. ABOVE CONDITIONS IS L^TRUE AT "JOB DONE " 

136c 1 OR "COMMANO INITIATION" TIME, IT MAY BE NECESSARt 

1563 TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 

1564 ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION, 
1565 

1566 £, EXTENDED STATUS REGISTERS ARE NOT READ DIRECTL* FROM 

1567 DRIVE REGISTERS* RATHER. A "GET STATUS" COMMANO 

1568 IS ISSUED WHICH WILL CAUSE THE TS05 TO TRANSFER EXTENDED 

1569 STATUS INFORMATION TO THE MEMORY AREA POINTED TO By THE 

1570 BUFFER ADDRESS OF THE "GET STATUS" COMMANO, THERE ARE FIVE 

1571 EXTENDED STATUS REGISTERS. SEE .3. 

15 7P 

1573 F, THE TSD6 MUST BE WRITTEN WITH A DATO INSTRUCTION TO 

1574 PROPERLY WRITE THE COMMAND POINTFR. A DAT08 WILl 

1575 CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 

1576 SUBSYSTEM INIT. 

1577 

15 '6 G* COMMANO PACKETS MUST RESIDE ON DIVIDE BY FQUR 

!579 MEMORf BOUNDARIES (AS OPPOSED TO DIVIDE BY Z QR WORD 

1*80 BOUNDARIES) * 

1581 
1382 



SEQ 00k7 



CNTSfAO TsWV> DATA RbLlAUtUTu MACRU Ml.'OO .V MAR -84 OH: r >3 PACf H 

1384 b. c > U BUS INTERFACE SPECIFICATIONS 
133S , .. . 

1396 

138 ? 

1388 T0VO5/ INT. 'JNIBUO 

138-4 fSO r » VECTOR ADDRESS RFCilSTEH 

1 390 ... 

1*91 

139,? FIRST MA V\'WO T^BA/TSDB 

.393 7725*2 TbbR 

1394 



e.C<-. 



es owns 
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1396 

1598 
1399 

1400 
1401 

1402 

1403 
1404 
1405 
1406 
140? 
1408 
1409 
1410 
14U 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1425 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
144? 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 



»».S BIT DEFINITIONS FOR TSV05/TS05 Rf.GXSTf.R5 



6.3.1 TSV05/TS05 REGISTER SUMMAF r 



CR/O) TSBA 

cw/o) rsDB 

(R/0) TSSR 
(WZO)TSDBX 

XSTO 
XST1 
XST2 
XST3 

X5T4 



15 14 13 12 11 10 09 08 07 06 05 04 03 0? 01 00 

ft ... • «.-..«._.»..-» ft.-.*. ..»_.-* » . .».._»...» ft . ^ . » .». ., ft - - . » ..«. » 

!<U5! !A14!A13!A12! ! All! A10! A09! ! A08 ! A07 ■ A06 ! ! A05J A04 J A03 ! » A02! A01 • AOC • 

* • } ; » » • • i ; j ; ; ; j » ; i i i % » 

»-■ » »--.»-.-♦.._♦ ♦...#._.♦__.♦ ♦ _ . ♦ — » _ . . f » * .. . _ 4 .» *....»-..♦ .. 

!P15! !P14!P13!P12! !PU!P10!P09! IP08JP07 !P06! |P05!P04 JP03» !PQ2» Pi v JP16! 

• j; j ; t ; » i • ; ; i ;; i i it . t i 
» _ , « t » _ . . t . . . t * . _ _ * » * f » ___»._. f ♦-..»...»...» »-..».._*...» 

!SC ! » » r ,CE»RMR» JNXMJNBA • A17 • J A16IS5R !OFL » »FC 1 »FCO» TC2! JTCI'TCO! • 
i • i i j ii t i ii i i t ; i i it i * i 

« - - ♦ ♦ — - » — «♦ — -♦ * - - - * ♦ — -♦ f ♦ ♦-»-♦ ♦---♦-..»..--» ».. » » - .. » 

!BT • » ! ! ! f P21 !P20!P19! !P18! (TSDBX EXISTS ONLY UHF-'N 

! ! ! ! ! ! ! ! ! ! ! ! ENABLED BY THE EX TENDED 

»..,♦ »-„♦-..♦...♦ ♦-..»-..»...♦ ♦ -.-♦ FEATURES SWITCH ON THE M7196) 

*---♦ *---ft_-.#--» » -.»_...»- » * -ft . ft ... ft ft-._ft--.ft.. ...» *--.*_. ..».._» 

JTMKJ »RLS!LET»RLL! ! WLEJNEFJ IlC ! J ILA 'MOT !ONL ! ! IE IVCK'PED! ! WLK !BOT !EOT ! 
I ii i ; ii i i ii i i ii * i ii i i i 

»-•■-* *-...»-. # - - - ♦ »...»..»...» »^-->..»»_..^ »...-♦_-.♦ — . » *.-.*-..*_..* 

!DLT! • >COR! ! ! ! ! ! »RBP» ! ! ! ! • • ! !UNC! ! 

i i i i i i i i i i i t i i i i i t i • i 

♦ — -♦ ♦-..-♦---♦--.♦ » - - . » — .*....» •_..*.._»..., ♦-. -»..-•...» »...# . .-♦- .-♦ 

•OPM! !RCE! ■ ■ ! !WCF» • ! !RL7»RL6! JRL5IRL4 »RL3! »RL2!RL 1 !«L0! 

; i; i i ii » i ii » ♦ ii i i ii i i 

• --•♦ ».--♦--.»_.-♦ «._.«...«...« *__.*..._» « « * * _ — » »..->-._*...» 

! MICRO DIAGNOSTIC ERROR CODE ! !OPI! !REV! TRFJOCK • ! ! JRIB! 

} •; j !•!!!»! ! 

»...» »...*...*„..* » . .»_..»...» ♦_..»._-♦.__# »._.»_.. » f ».__f__.».... 

!HSP! !RCE! J ! WRITE RETRY COUNT ; 

i i i i i i i 

*..-♦ *...»-..»_-_* »....»..„»....» ♦--♦._-*<__ft ♦-.-»...»...» »...»..-.»-..» 

TERMINATION CLASS COOES C TSSR TC0-TC2); 



NORMAL TERMINATION 

ATTENTION CONDITION 

TAPE STATUS ALERT 

FUNCTION REJECT 

RECOVERABLE ERROR - TAPE POSITION 

DOUN TAPE FROM START OF FUNCTION 

RECOVERABLE ERROR - TAPE NOT MOVED 

UNRECOVERABLE ERROR - TAPE POSITION LOST 

FATAL CONTROLLER ERROR 



ONE RECORD 



FATAL CLAS5 COOES (TSSR FCO-FCDt 

• MICRO DIAGNOSTIC FAILURE. SEE ERROR CODE BYTE (XST3) FQR FAILED FUNCTION, 

1 - RESERVED 

2 - NOT USED 

3 * RESERVED FOR FUTURE USE ALWAYS READ AS A 
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SE1 0050 



1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
146? 
1466 
1469 
1470 
1471 
1472 
1475 
1474 
1475 
1476 
!477 
14/8 
1479 
1480 
1481 
1462 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
!496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
I 1 ' 05 
1d06 
1507 
1508 
1509 
1510 



6.3.2 TSV05 STATUS REGISTER (TSSR) 



Q-DUS ADDRESS 



RF.AD ONLY 



15 14 13 12 
»- -» »....»--.♦- 



11 10 09 08 07 06 



05 04 03 



02 01 00 
♦ ♦~-- t -- -*---♦ 



!SC ! ! • SUE! RMR! !NXM!NBA • A17 • !A1.6!0SR»0FL • »FC1 'FCO! TC2 ! ! T C.l! T CO! I 

I * t I I It t t It I I II I I || I i i 



+ ♦ *_»_*__-». . * ► _._►. ..^-_. t 



BIT NAME TCC 



15 SC 5 



14 

13 SCE FCO 



12 RMR S 



11 NXM 4/5 



10 NQA S 



DEFINITION 



SPECIAL CONOITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPl^iE WITHOUT 
INCIDENT, SPECIFICALLY. EITHER AN ERROR WAS 
DETECTED OR AN EXCEPTION CONOITION OCCURRED. 
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
COMWANOS, REVERSE MOTION ANO AT BOT. EOT WHILE 
WRITING* ETC. MAY ALSO BE SET BY THE ERROR 
BITS CONTAINED IN THE TSSR REGISTER; SCE. 
RMR. ANO NXM. THE TERMINATION CLASS BITS ARE 
SOMETHING OTHER THAN (UNLESS RMR IS THE ONLY 
ERROR - SEE RMR). 

RESERVED (ALWAYS A 0) 

SANITY CHECK ERROR-SETS WHEN THE CONTROLLER DETECTS 
AN ABNORMAL CONOITION WITHIN ITSELF DURING EXECUTION 
OF IT'S FUNCTIONS ANO THE PROBLEM IS SERIOUS ENOUGH 
THAT A MESSAGE PACKET IS NOT STORED. 

REGISTER MOOIFICATION REFUSED. SET BY THE TSV05 
WHEN A COMMAND POINTER IS LOADED INTO TSDB AND 
SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 
THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION 
CLASS (IN FACT. THE TS05 NEVER SEES THIS ERROR) 
BECAUSE ON A SYSTEM WITH NO BUGS. THIS BIT MAY 
COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 
BUG. 

NON-EXISTENT MEMORY. SET BY THE TSV05 WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 

NEED BL^FER ADDRESS. WHEN SET, INDICATES THAT 
THE TS05 NEEDS A MESSAGE BUFFER AOORESS. THIS 
BIT IS CLEARED DURING THE SET CHARACTERISTICS 
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SEQ 00 51 



1511 
1512 
1513 

1514 

1515 
1516 
151? 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
15S4 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
154? 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 



COMMAND (IF" A GOOD ADDRESS WAS GIVEN). 



09 A17 



08 
07 



A16 
SSR 



06 OFL S.1,3 



05 FC1 



04 FCO 7 
03 TC2 S 



02 TC 1 S 
01 TCO S 
00 



BUS ADDRESS 



BIT 17. A17 AND A16 (BIT 08) TRACK 
THE VALUES OF BITS 17 AND 16 OP THE TS9A 
REGISTER. LOADED FROM TSDB BITS 01-00 WHEN TSDB 
IS WRITTEN. 

BUS ADDRESS HIT 16. SEE A17 CBIT 09). 

SUB SYSTEM READY. WHEN SET, INDICATES THAI THF 
TSV05/TS05 SUBSYSTEM IS NOT BUSY AND IS READf TO 
ACCEPT A NEW COMMANO POINTER. 

OFF-LINE. WHEN SET, INDICATES THAT THfc TS05 IS 
OFF-LINE ANO UNAVAILABLE FOR ANY TAPE MOTION 
COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF ) . 

FATAL TERMINATION CLASS 01. FC1 ANO FCO (BIT 
04) ARE USED TO INOICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE TS05. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET Clll). 

FATAL TERMINATION CLASS 00. SEE FCl (BIT 05). 

TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
THE TCI ANO TCO BITS. ACT AS AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONOITION OCCURS 
ON A COMMANO. EACH OF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND. AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD IS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 

TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 

TERMINATION CLASS BIT 00, SEE TC2 (BIT 03). 

NOT USED. (ALWAYS A 0) 



Q-0US ADDRESS ♦ 2 - WRITE ONLY 
SUBSYSTEM INITIALIZE 
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SEG 0052 



1562 
1503 
1564 
1565 
1566 
15b 7 
1568 
1*69 
15^0 
1571 
1572 
1573 
1574 
1575 
15 76 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 



6.3.2.1 TSVOS EXTENDED DATA BUFFER REGISTER CTSDBX) 

!BT ! ! ! ! ! JP21 :P20!P19! !P18! CTSDBX EXISTS ONI. f WHEN 
TSDBX • ! ! ! ! J • f • ■ • • ENABLED BY THE EXTENDED 

♦___♦ ♦-._♦.. , f „. f ♦-.. f .-.♦_. . f ♦ ...* FEATURES SWITCH ON THE M7196) 

BIT NAME TCC DEFINITION 

15 BT - BOOT COMMAND BIT, WHEN WRITTEN TO A 1,WITH 

SSR-1. CAUSES THE TAPE TO BE REWOUNO TO BOT , 
THE FIRST TAPE RECORD TO BE SKIPPED, AND THE 
SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE 
STARTING AT LOCATION 0. 

14-12 RESERVED (ALWAYS A 0) 

11-08 P<21:18> COMMAND POINTER BITS 21-18. WHEN THE TSDBX 15 WRITTEN 

ANU SSR-1. THE DATA IS LOADED INTO BITS 21-18 OF 
THE INTERNAL TSBA REGISTER. 

07-00 RESEkVED (ALWAYS A 0) 



6.3.3 



EXTENDED STATUS REGISTER (XSTATO) 



15 



14 13 12 



11 10 09 



08 07 06 



05 04 03 



02 01 00 



♦ - - - ♦ ♦---♦ ♦ — -.* * — - ♦ — >♦- — *• *-- 



!TMK! JRLS.'LETJRLL! ! WLE !N£F » ILC! ! ILAJMOT !ONL ! ! IE 'VCKIPED! ! WLK !B0T !EOT • 
• i i • » i • i » it i i it i i ii i i i 



¥ ♦ t - 



*--.. + -_.+ >_.. -^ *_- 



BIT NAME TCC 
15 TMK S,2 

14 RLS 2 



DEFINITION 



TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 
WAS DETECTED DURING A READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OP WITE TAPE MARK RETtfY COMMANDS. 

RECORD LENGTH SHORT. "HIS BIT INDICATES THAT 
EITHER THE RECORD'S LF.NGTH WAS SHORTER THAN THE 
BYTE COLNT ON READ OPERATIONS, A SPACE RECORD 
OPERATION ENCOUNTEREC A TAPE MARK OR BOT BEFORE 
THE POSITION COUNT WAS EXHAUSTED, OR A SKIP 
TAPE MARKS COMMANO WAS TERMINATED Bl 
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 
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SEQ 003: 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
163? 
1638 
1639 
1640 
1641 
1642 
1643 
1644 



13 LET 2 



12 RLL 2 



11 WLE 3,6 



10 NEF 3 



LOGICAl END OF TAPE. SET ONL f ON THE SKIP TAPE 
MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
MARKS ARE OETECTED OR WHEN MOVING OFF OF BOT 
AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 

RECORD LENGTH LONG, WHEN SET, THIS BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED, 

WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SUITCH ACTIVATED DURING THE OPERATION. 

NON-EXECUTABLE FLECTION. WHEN SET, INDICATES 
THAT THE COMMANO COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 

- THE COMMAND SPECIFIED REVERSE TAPE 
DIRECTION BUT THE TAPE WAS ALREADY 
POSITIONED AT BOT. 

- THE ISSUING OF ANY MOTION COMMAND EXCEPT 
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SEQ 0054 



1646 
164? 
1648 
1649 

IujO 

1651 
1 652 
1^53 
1654 

1655 
1656 
165? 
1658 
1659 
1660 
1661 
1662 
166? 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
167? 
167? 
16/4 
16/1) 
1676 
1677 
1673 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1636 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 



00 ILC 3 

08 ILA 3 

07 MOT 5 

06 ONL S 



05 It 



S 



04 VCK S 



03 PED 



02 



01 



WLK 



BOT 



00 EOT 



S.3 



S,3 



5,2 



WHEN THE VOLUME CHECK BIT IS SET, 

- ANY COMMAND, EXCEPT GET STATUS OR DRIVE 
INITIALISE, WHEN THE TS05 IS OFF-LINE. 

- ANr WRITE COMMAND WHEN [HE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WLS). 

ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS05. 

ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 



TAPE IS MOVING. 

ON LINE. WHEN SET, INDICATES THAT THE TS05 
ON-LINE AND OPERABLE. 



IS 



INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND. 

VOLITIE CHECK. WHEN SET, INOICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR Vf .. JME CHECK 
(CVC S - BIT IN THE COMMAND HEADER WORD THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 

PHASE ENCODED DRIVE. ALWAYS SET, INOICATES THAT 
THE TS05 IS CAPABLE Of READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. 

WRITE LOCKED. WHEN SET, INDICATES THAT TKE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 

BEGINNING OF TAPE. WHEN SET, INOICATES 1HAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
DENOTED BY THE BOT REFLECTIVE STPTP ON THE 
TAPE. 



END OF TAPE. THIS BIT 
IS POSITIONED AT OR 
REFLECTIVE STRIP. 



IS SET WHENEVFR THE TAPE 
BEYOND THE END OF TAPE 
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SEQ 00 5S 



1696 
lb* 7 
1698 
1699 
1700 
1701 

; .'02 

i :o3 

1 .'04 
l 70b 
1 706 
1707 
1708 
1709 
1710 
17U 
1 '12 
1713 
1714 
171? 
1716 
1717 
1/10 
1719 
17^0 
1/21 
1 ??2 
172 5 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 



6.3.4 EXTENDED SIATUS PHJl'STER 1 (XSTAT1) 



IS 



14 13 1,-' 



11 10 09 



08 ? 06 



OS 04 03 



0.? 01 00 



- ♦ - ■ - ♦ 



!DIT! » !COR! ! ! ! ! ! !RBP! ! ! ! ! J • ! ! )HC ! 
• i » • i it i • it i i it i i »i i i 



♦ - - - f 



-* ♦_..-» * f.._#. f * . 



HIT NAME TCC 
15 DLT 4 

14 

13 COR S 

12-09 

08 RPB 4 

07-02 £ 00 
01 UNC 4 



-♦---» 



. . * . - - ♦ 



DEFINITION 



DATA LATE. SET WHFN THE FIFO IS FULL ON A 
RFAD OR FMPTY ON A WRITE. THESF CONDITIONS 
OCCUR UHENfcVER THE Q BUS LATENCf EXCEEDS THE 
DATA TRANSFER RATE OF THE TS05. 

NOT USED. (ALWAYS A 0) 

CORRECTABLE DATA. 

CORRECTABLE DATA ERROR HAS BFEN ENCOUNTERED. 

RESERVED I ALWAYS A 0) 

PEAD BUS PARITY ERROR. SET WHEN CONTROLLER DETECTS 

A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT &US. 

RESERVED (ALWAYS A 0) 



UNCORRECTABLE DATA ERRQR. 



sea oo 5c 



K ''' 
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17^3 6.5.5 t.XTENDEl) STATUS REGISTER ? (XSTAT2) 

W^4 . - - 

1735 

3 -'36 

1737 15 14 13 l,.-? 11 10 09 08 0/ 06 05 04 03 0? 01 OC 

1 < 36 ♦-■-♦ ♦ - - - f - - - ♦ « ♦- -*...*.--+ * - + * ... , » , , » t » .,.. t 

17 3V? JOPMJ JRCEJ ! ! ! !WCH J • !RL 7JRL6! !HI.5!Rl 4 !R1 3) !RI.?!RL.l !RL C! 
1 '40 ! » j } | J J j • ;i j ; ; ; j j j ; i j ; 
1.41 !...„♦ f f .. _ _ t .. . . t * f. ._>...». ♦...»....»....» »-_.#....».._♦ f _. .»__.♦ _.,. 

174? 

1743 

17^4 BIT NAME TCC DEFINITION 
174 5 .... - 

l/4t 

174 7 15 OPM S OPERATION IN PROGRESS. (TAPE MOVING) 

1746 

174^ 14 RCE 7.F2 RAM CHECKSUM ERROR. CAUSES FATAL CLASS .'. BECAUSE THE 

1750 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 

1751 MESSAGE PACKET. 
1/52 

1753 13-11 RESERVED (ALWAYS A 0) 

1754 

1755 

1756 10 WCF 7 WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT 

1 757 THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT. 

1/58 

1759 09-06 RESERVED (ALWAYS A 0) 

1760 

1/61 

1762 07-00 RL - REVISION LEVEL. 

1763 7-0 
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StQ 005/ 



1 765 
1766 
176 7 
1 768 
1769 
1770 
1 '"I 
1 :?r? 

17 73 
1 774 
1775 
1776 
1777 
17 78 
17 79 
1780 
178.1 
178*? 
1783 
1784 
1785 
1786 
1787 
1783 
1789 
1790 
1791 
179? 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
J 80? 
1803 
1804 
1805 
1806 
180 7 
1808 
1809 
1810 
1811 
181? 
1813 
1814 
1815 

1816 
1817 
1818 
1819 
:.820 
ltiHl 



6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 



15 



15 


TO 08 


07 




06 


OPI 


05 


REV 


04 


- 


03 


OCX 



02-01 



00 



RIB 



14 13 !<> 11 10 09 06 Vi 06 05 04 03 0? 01 00 



♦ * * » » • ■ - * ♦ - ■ ♦ ♦ ■ ■ ¥ »--_*-.-♦ » t ■ - ♦ - - f - - t + -...-.-♦ . . t 

! MICRO DIAGNOSTIC ERROR CODE » I0P1! !REV! TRF' !0O< ! ! ! 'RIB! 

i i t » i i ii i t i 






BIT NAME TCC 



6 



S.6 



2 



DEFINITION 

MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW) 

RESERVED ( ALUAYS A 0) 

OPERATION INCOMPLETE, SET WHEN A READ, SPACE. 
OR SKIP OPERATION HAS MOVED D5 FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE, 

DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
IS IV REWIND OR FORWARD) 

RESERVED CALWAYS A 0) 

DENSITY CHECK. SET WHEN A PE 

IDENTIFICATION BURST CIDB) WAS NOT DETECTED WHEN 

MOVING OFF OF BOT, 

RESERVED CALWAYS A 0) 



REVERSE INTO BOT. A READ. SPACE. OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 



6.3.7 EXTENDED STATUS REGISTER 4 CXS.AT4) 



15 14 13 12 11 10 09 08 07 06 05 04 03 0? 01 00 

+ ._-♦ + _ .. . » .. _ . + _ _4 »--_ + _...>__,* f»._ t + — >+ r ♦„.-*..._♦ + .. .. + ___* «, 

!HSP! ,'RCE! J .' WRITE RETRY COUNT ! 

j i j ; ; j i 



BIT NAME TCC 



DEFINITION 



t ; 
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SEQ 0038 



1823 

1824 
1825 
1826 

i8<r; 

3 828 
1829 

1830 
1831 
183? 
1833 
1834 
1835 
1836 
1837 
1338 
,G39 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1656 
1857 
1858 
1859 
1860 
1861 
186? 
1863 



15 HSP 
14 RCE 

13-8 
7-0 WRC 



HIGH SPEED. WHEN SET , INDICATES THAT THE TRANSPORT IS 
OPERATING IN HIGH SPEED MODE . C 100IPS ) WHEN CLEAR, THE 
TRANSPORT IS OPERATING IN LOW SPEED M0DE.C25IPS) 

RETRY COUNT EXCEEDED. WHEN SET , INDICATES THAT THE CONTROLLER 
WAS BUFFERING WRITE DATA AND COULD NOT SUCE5SFULLY OUTPUT 
THE BUFFERED RECORD WITHIN THE SPECIFIED NUMBER OF RETRIES. 
CAUSES TAPE POSITION LOST TERMINATION. 

RESERVED (ALWAYS A 0) 

WRITE RECOUNT COUNT STATISTIC. THIS FIELD INDICATES, UHEN 
THE CONTROLLER IS BUFFERING WRITE DATA RECORDS, THE TOTAL 
NUMBER OF CONTROLLER INITIATED RETRIES PERFORMED IN ORDER 
TO WRITE THE PREVIOUS BUFFERED RECORD. THIS COUNT IS CLEARED 
AFTER IT IS DISPLAYED. 



7.0 DIAGNOSTIC HISTORY 



REVISION A - MAR 1982 

- MODIFIED CZTSHC FROM TSll FOR TSV05 

REVISION B - APR 1983 

- UPDATED THE DIAGNOSTIC TO SUPPLY THE CORRECT 
RECORD NUMBER DURING EXECUTION OF TEST 32. 
REF; CHMIELECKI TO MITCHELL "TSV05 DATA 
RELIABILITY PROBLEM"; 21-JAN-83. 

CVTSEBO »> CNTSEAO JAKI BERG 9- APR -1964 

CHANGES WERE MADE TO CVTSEBO TO PRODUCE CNTSEAO FOR THE 
FALCON-PLUS PROJECT (SBC-11/210. CHANGES, MARKED BY 
"jJB REV A-0", ARE: 

- SET THE ODT BREAK VECTOR CLOCATION 140) TO THE 
STARTING ADDRESS OF FALCON'S ODT ROM C 170000-OCTAL) 

- LOWER THE GENERAL INTERRUPT PRIORITY FROM 7 TO 6. 

- CHANGE DEFAULT CSR ADDRESS FROM 172540 TO 176000, 



nK 
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SEQ 0059 



1 

13 

14 

45 

45 

46 

48 002000 

49 

30 

51 

52 

55 

54 

55 002000 

5b 

64 

65 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
00204c 
002044 



002000 



103 

116 
124 
123 
105 
000 
000 
000 

101 

060 

000000 

005000 

030002 

0301 LO 

002 I'M 

002204 

032004 

000000 

000000 

000001 

000000 

002124 

000000 



.TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

.ENABL ABS.AMA 

2000 
BGNMOD 



; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRP T , BGNSW , 8GNSF T , BGNAU , BGNDU 



HEADER CNTSE , A , 1 5000 , 1 
I $NAME: : ; DIAGNOSTIC NAME 



LSREV: 

LSDEPO 

LSUNIT 

L$TIML 

LSHPCP 

L$SPCP 

LSHPTP 

LSSPTP 

LSLADP 

LSSTA: 

I $C0: : 

LSDTYP- . 

i. SAP 1 ■ r 

L$nV- • 

' <t J '^::0: : 



{REVISION LEVEL 

;0 

jNUMBER OF UNITS 

LONGEST TEST TIME 

POINTER TO H.W. QUES. 

POINTER TO S.W. QUES. 

PTR. TO DEF. H.W. PTABLE 

PTR. TO S.W. PTABLE 

DIAG. END ADDRESS 

RESERVED FOR APT STATS 

DIAGNOSTIC TYPE 

APT EXPANSION 

PTR. T DISPATCH TABLE 

DIAGNOSTIC RUN PRIORITY 

FLAGS DESCRIBE HOW IT WAS SETUP 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BY IE 

.BYTE 


/f/ 

/N/ 
/T/ 

/s/ 

/EV 






.ASCII 


AV 


.ASCII 


/o/ 


.WORD 





.WORD 


5000 


.WORD 


L SHARD 


.WORD 


LSSOFT 


.WORD 


I. SHU 


.WORD 


L <SW 


.WORD 


LSI. AST 


.WORD 





.WORD 





.WORD 


1 


.WORD 





.WORD 


LSDISPATCH 


.WORD 






I i t 



PROGRAM HHUHH AND TABLFS 

PROGRAM HEADER 

002044 000000 

002046 

002046 000000 

002050 

002050 003 

002051 003 
002052 

002052 000000 
002054 000000 
002056 

002056 000000 
002060 

00.060 002164 
002062 

002062 017570 
002064 

002064 OOCOOO 
002066 

002066 000000 
0020 70 

002070 024100 
0020 72 

002072 024026 
002074 

002074 000000 
002076 

002076 002136 
002100 

002100 104035 
002102 

002102 000000 
002104 

002104 021324 
002106 

002106 023764 
002110 

002110 023342 
002112 

002112 021316 
002 114 

002114 OOOOOO 
002116 

002116 OOOOOO 
002120 
002120 OOOOOO 

66 
72 
73 
/4 
75 
76 
77 
78 
79 002122 

002122 000005 

002124 

002124 024204 



MACRO MI200 .'0 MAR H4 08*53 PAGF 16 1 



SEO 0040 



j I XPAN5I0N WORD 

I SVC RFV AND EDIT 

iDIAd, FVFN1 a AGO 



j POINTER TO DFVICF T iPl LIST 
jPTR, TO REPORT CODE 



IV. XPi : : 
L.SMREV: : 

LIEKjj 

LtSPC: 
LiDEVP 
LfREPP 

I IEXP4 

L$EXP5 

LIAUT 

L I OUT 

LILUN 

LIDF.SP 

LILOAD 

LIETP 

I $ICP 
i *CCP 
LIACP 
I IPRT 
I ITEST 
LIDLT: 
LIHIME 

.SBTTL DISPATCH TABLE 

j THE OISPATCH TABLE CONTAINS THE STARTING ADDRESS OT EAQH TEST, 
i IT IS USED BY THE SUPERVISOR TQ DISPATCH TQ EACH TEST, 
l • • 

DISPATCH 5 

UDXSPATCHit 



jPTR. TO ADD UNIT CODE 

jPTR. TO OPOP UNIT COOE 

jLUN >QR EXERCISERS TO ETLL 

iPOINTER TO DIAG. DESCRIPTION 

l GENERA IE SPECIAL AUTOLOAD EMT 

jPOTNTER TO ERRTBL 

jPTR. TO INIT COOE 

jPTR. TO CI EAN-UP COOE 

|PTR. TO AUTO COOE 

jPTR. TO PROTECT TABLE 

jTEST NUMBER 

(DEL Ar COUNT 

jPTR, TO HIGH MEM 



.WORO 





, UOPfJ 





.BfTE 

.BfTf 


CIPEvISION 

CREDIT 


.WORD 
.WORD 






.WORD 





.WORD 


LfDVT'P 


.WORD 


I $PPT 


.WORD 





.WORD 





.WORD 


LtAu 


.WORD 


LIDU 


.WORD 





.WORD 


LfOESC 


EMT 


EiLOAD 


.WORD 





.WORO 


L UNIT 


.WORD 


L«CtEAN 


.WORD 


LIAUTO 


.WORD 


I IPROT 


.WORD 





.WORD 





.WORD 






.WORD 
.WORD 



Tl 



'I 



PROGRAM H ^. lV o\ H ANlv TABl * S 
DISPATCH TABl.F 
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ST/ 



80 

a ' 

89 

90 

9;? 

93 
94 



002 126 
002150 

002152 
002154 



002156 
002156 
002156 

002141 

002144 
002147 
002152 
002155 
002160 
002165 



95 002164 
002164 
002164 
002167 

96 

97 

98 

99 

100 

101 

102 

105 

104 002W2 
002172 
002174 
002174 



002174 
002176 
002200 

0O2202 
002202 



105 
106 
107 
108 
109 
110 
111 

112 
115 
114 
115 
116 
117 
118 

119 002202 
0022Q2 



0256 iV 
026526 
026 \?2 
027102 



104 

101 
105 
101 
114 
151 
105 
000 



124 

060 



000O05 



176000 
000224 

OOOOoO 



101 

040 
114 
102 
111 
040 
125 



125 
065 



124 

122 
111 
HI 
124 
124 
124 



126 
000 



r iKj 004 3 



wop'; 


T2 


WORD 


T ? 


W0«(; 


T4 


WORD 


T r , 



.SBTTl. DESCRIPTIVE TEXT 

» * * 

|2 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIC THE DIAGNOSTIC AND THE DEVICE UNDER T ES 



LJDESC:: 



DESCRIPT 



'DATA RELIABILITY TEST> 



,ASCIZ /DATA RELIABILITY TE 



OEVTYP 
L*DVTYP: : 



<TSV05> 



.SBTTL DEFAULT HARDWARE P- TABLE 



THE DEFAULT HARDWARE P TABLE CONTAINS DEFAULT VALUES Of 
THE TEST-DEVICE PARAMETERS, THE STRUCTURE Of THIS TABLE 
15 IDENTICAL TO THC STRUCTURE OF THE RUN-TIME P- TABLE. 



.EVEN 

.ASCIZ *TSV05* 
.EVEN 



BGNHW DFPTBL 



iTSOB ADDRESS. 

jVECTOR ADDRESS, 

I DRIVE #C FOR DEFAULT 



jJB RtV A-0 



LIHW:: 
DFPTBL-: 



. WORD 1 76000 
.WORD 224 
.WORD 

ENDHW 
L 10000: 
.SBTTL SOFTWARE P-TABLE 

I ♦ ♦ 

i THE SOFTWARE P-TABLE CONTAINS THE VAlUES Of THE PROGRAM 

j PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR* 

I*- 



.WORD L100OO-LSHU/V 



000051 



BGN5W SFPTBL 



4 WURD LlOOOi-LISM/2 



PROGRAM Ht AIM R »ND TABLES 
SOFTWARE P-TABL6 
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SEQ 004? 





002204 






002204 




120 






12? 


002204 


001 


128 


002205 


000 


129 


0C2206 


000 


130 


00220 7 


000 


131 


002210 


001 


132 


002211 


000 


153 


002212 


000 


134 


002213 


000 


13b 


002214 


000 


136 


002215 


000 


137 


002216 


000 


138 


002217 


000 


139 


002220 


000040 


140 


002222 


00C015 


141 


002224 


OOOOOl 


142 


002226 


ooooo i 


143 


002230 


1H-..HX)7 


144 


0022V 


0O0O04 


145 


002i 3 4 


''.^*000 


146 


00225* 


U 76 400 


14 7 


0022*0 


C0i.<007 


148 


002,? a:- 1 


000003 


149 


oo?r*-v; 


00- )00 


150 


00??.. i*": 


0/6^00 


151 


00^:2 1>0 


OOOOO 7 


152 


O0P?T:. 


000CC2 


153 


o-r-r-.A 


OlrtOCO 


154 


00v!.:ms 


076400 


155 


OQ&Wt 


OXXX) 1 


156 


oo r ■.../ 


000015 


1L7 


oo j \>*. 


OOOOOl 


15, 


00 ■■■.•: ,*.-. 


OOOOOl 


159 


oo;-'.* *•.» 


000OC7 


16C 


0* >:•';> v; 


C 00033 


16 i 


oc ■: -j 


C04000 


16? 


00i?r\. 


076400 


163 


fiJ/VjO 


000007 


164 


002 -JO? 


000033 


165 


0C.\*O* 


0O40O0 


16o 


ooy: of 


076400 


16? 


00.:*. ) 


000007 


168 


•;'.V.>1P 


OOOOOl 


ir><] 


a:-''?;, > 


OOOOOO 


170 


•v-v-sib 


OOOCOO 


1/1 


0:\ ■ .\"-o 


oooooo 


1/2 


olvj.22 


OOOOOO 


173 


002 > '4 


OCOOOO 


i"M 






175 


vf»;.:V J 6 




1/6 






177 


002* J»6 





l.JSW: : 






SFPTBL? 


j 




CLRFLG: 


: .BYTE 


1 


RRANVj * 


.BYTE 





HAt: * 


.BYTE 





ERCVER: 


: .BYTE 





BADTSW: 


; .BYTE 


1 




.BYTE 





DINT t! 


.BYTE 





IREC:: 


.BYTE 





CHGFLG: 


: .BYTE 







.BYTE 





PIRE:: 


.BYTE 







.BYTE 





CHAR: : 


CH.EAI 




CMODt: 


.UORO 


13. 




.WORD 


1 




.WORD 


1 




.WORD 


RANP 




.WORD 


4 




.WORD 


OATCNT 




.WORD 


32000. 




.WORD 


RANP 




.WORD 


3 




.WORD 


DATCNT 




.WORD 


32000. 




.WORD 


RANP 




.WORD 


2 




.WORD 


DATCNT 




.WORD 


32000. 




.WORD 


RANP 




.WORD 


13. 




.WORD 


1 




.WORD 


1 




.WORD 


RANP 




.WORO 


27. 




.WORD 


DATCNT 




.WORD 


32000. 




.WORD 


RANP 




.WORD 


27. 




.WORD 


DATCNT 




.WORD 


320O0. 




.WORD 


RANP 


TSlMOtt 


.WORO 


1 


ROBUT;: 


.WORD 





WTBUF; : 


.WORD 





HSSW: : 


.WORD 





EXTFEA: 


: .WORD 





BENeSU: 


: . WORD 






jCLEAR COUNTERS F[ AG, 

jRESET RANOOM VARIABLES EACH PASS f-LAF,. 

HALT AFTER EACH COMMAND FLAG. 

ENABLE RECOVERABLE ERROR PRINTS HAG. 

BAD TAPE SWITCH TO REWRITE ON SAME. SPOT fc DETECT BAD TAPE 

SPARE 

DISABLE INTERRUPTS RAG. 

INHIBIT ERROR RECOVERY FLAG. 

CHANGE CMO SEQ TABLE FLAG. 

SPARE 

INHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG, 

SPARE. 

CHARACTERISTICS CODE (DEFAULT - 40). 

COMMAND 2 (DEFAULT - REWIND). 

BYTE COUNT 

NUMBER OF OPERATIONS 

PATTERN 

COMMAND 3 (DEFAULT ■ 

BYTE COUNT (DEFAULT . 

NUMBER OF OPERATIONS 

PATTERN (DEFAULT - 

COMMANO 4 (DEFAULT 



WRITE) 

< MAX BUFFER SIZE). 

(DEFAULT » 32000). 
RANDOM). 
• READ REV). 



BYTE COUNT (DEFAULT - MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT • 32,000). 

PATTERN (DEFAULT • RANDOM). 

COMMAND 5 (DEFAULT - REAO FWO). 

BYTE COUNT (DEFAULT • MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT - 3i?.000). 

PATTERN (DEFAULT - RANDOM). 

COMMANO 6 (DEFAULT - REWINO). 

BYTE COUNT 

NLWBER OF OPERATIONS 

PATTERN 

ENO OF CMC SEQ TABLE COOE (DEF) OR CMO 7 

BYTE COUNT (DEFAULT - MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT - 32000). 

PATTERN (DEFAULT - RANDOM). 

END OF CMC SEQ TABLE COOE (DEF) OR CMO 8 

BYTE COUNT (DEFAULT - MAX BUFFER SIZE), 

NL»«ER OF OPERATIONS (DEFAULT - 32000). 

PATTERN (DEFAULT * RANOOM). 

DEFAULT SWITCH SETTING 

ENABLE READ BUFFERING 

ENABLE WRITE BUFFERING 

RUN AT 100IPS SWITCH 

EXTENOED FEATURES SOFTWARE SW 0-OFFjl-ON 

BUFFER ENABLE SOFTWARE SW 0-OFFji-ON 



110001 



ENDSW 



ENOMOD 



■ \ 



PROGRAM Hi APf R AND TABLES 
SOFTWARE P- TABLE 
190 

vn 

201 

t?0^ 002326 

r?0"5 

204 
.70S 
J06 

,yo 7 

209 002326 



10OOO0 
04COO0 
020000 
010000 
004000 
00200C 
(>01000 
000400 
000200 
000100 
000040 
000020 
000010 
0000O4 
0O0002 
000001 

001000 
000400 
0O0200 
000100 
CCOO40 
000020 
OOOOIO 
000004 
000002 
0O0001 
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004 



TITLE GLOBAL AW- AS 
5BTTL GLOBAL EQUATES 

BGNMOD 



SECTION 



; THE GLOBAL EQUATES SE 


j ARE USED IN MORE THAN 




EQUALS 


! BIT DIFINITIONS 


BIT15-- 


100000 


BIT14- 


• 40000 


BIT13-- 


- 20000 


BIT12-' 


-■ 10000 


BIT11- 


■ 4000 


BIT10- 


• 2000 


BIT09-- 


■ 1000 


BIT08-- 


■ 400 


BIT07-- 


» 200 


BIT06-- 


• 100 


BIT05-- 


• 40 


BIT04-' 


■ 20 


BIT03-- 


■ 10 


BIT02- 


• 4 


BIT01-' 


• 2 


BITOO-- 


■ 1 


BIT9-- 


BIT09 


BIT6-- 


BIT08 


BIT7-- 


BIT07 


PIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



ECTION CONTAINS 
ONE TEST. 



PROGRAM EQUATES THAT 



000040 
000037 
00O036 
000035 
000034 



j EVENT FLAG DEFINITIONS 

j EF32jEF17 RESERVED FOR 

} 

EF. START-- 32. 

EF. RESTART-- 31. 

EF. CONTINUE-- 30. 

EF.NEW-- 29. 

EF.PWR-- 28. 



PRIORITY LEVEL DEFINITIONS 



SUPERVISOR TO PROGRAM COMMUNICATION 



BIT POSITION IN SECONO STATUS WORD 
(100000) START COMMAND WAS ISSUED 
(040000) RESTART COMMANO WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A POWER -FAIL/POWER -UP OCCURRED 



000540 



PRI07** 340 



\'/\ 



til OR At ARMS MACRO M 1200 

GLOBAL EQUATES SECTION 

COO300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
00C400 
001000 
002000 
004000 
OlOOOO 
020000 
040000 
100000 

210 

213 

P.ll 

223. 
22 > 
L\.S 
22<* 
22b 
226 
22 V 
22fl 
229 
2'iO 
2M 



22.2 

2? 3 

2:«:. 

2?? 

;:;v* 

2«*X 
241 
24? 
24? 
2<1 

2*o 
24 7 
24 f) 
249 
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PRI06-- 300 

PRI05*- 240 

PRI04-- 200 

PRI03«- 140 

PRI02-- 100 

PRI01-- 40 

PRI00-» 

OPERATOR FLAG BITS 



SEQ 0044 



100000 
040000 
020000 
OlOOOO 
004000 
002000 
001000 
000400 
000200 
000100 
177717 
177761 



L 00000 
04 0000 
020000 



EVL«* 

LOT- 

AOR« 

IDU- 

ISR- 

UAM- 

BOE- 

PNT- 

PRI- 

IXE« 

TBE- 

IER- 

LOE- 

HOE- 



4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



REGISTER USAGE. 

RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR 

Rl - COMMAND SEQUENCE TABLE POINTER. 

R2 - GENERAL PURPOSE REGISTER. 

R3 - GENERAL PURPOSE REGISTER. 

R4 - GENERAL PURPOSE REGISTER. 

R5 - CURRENT LOGICAL DEVICE NUMBER X 2. 

R6 - STACK POINTER. 

R7 - PROGRAM COUNTER. 

;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS, 



TS.SC-- 

TS.UPE- 
TS.SPE- 
TS.RMR- 
TS.NXM- 
TS.NBA- 
TS.A17- 
TS.A16- 
TS.SSR- 
TS.OFL- 
TSC.FCC 
TSC.TCC 



100000 

•40000 

•20000 

■10000 

•4000 

-2000 

•1000 

■400 

•200 

•100 

••177717 

••177761 



j SPECIAL CONDITION BIT. 

jUNIBUS PARITY ERROR 

j SERIAL BUS PARITY TRRQR. 

■REGISTER MODIFICATION REFUSED 

;NON-EXISTENT MEMORY. 

;NEED BUFFER ADDRESS . 

jBUS ADORESS BIT 17. 

j BUS ADORESS BIT 1$ . 

I UNIT READY BIT. 

j OFF LINE. 

jFATAL CLASS CODE MASK. 

i TERMINATION CLASS CODE MASK. 



;THE FOLLOUING ARE BIT DEFINITIONS FOR THE COMMANO WORD 



ACK.C-- 100000 
CVC.C--40000 
OPP.C- -20000 



I ACKNOWLEDGE BIT 

j CLEAR VOLUME CHECK, 

{OPPOSITE BIT 



Vt 



At. PRE A* 


MACRO M1200 


AL EQUATE'" 


SECTION 


250 


01 0000 


2".l 


004000 


252 


004000 


253 




254 


002000 


255 


001000 


256 


000400 


257 


000200 


258 


OOOIOO 


259 


000100 


260 




261 


000040 


252 


000040 


263 




264 




265 


000020 


266 


0OC02C 


26? 


000010 


268 


000004 


269 


000002 


270 


000001 


271 




272 




2 73 




274 


000200 


275 


000040 


27o 


0OO020 


2/7 


000040 


278 




2/9 




280 




281 


000040 


282 


000030 


283 


000020 


264 




285 




286 




287 




288 


000004 


289 


000006 


290 


000010 


291 


C00012 


2.92 


000014 


293 


000016 


294 




295 




296 




2^/ 


?00000 


29H 


1-40000 


299 


020000 


ZOO 


O'OOOO 


301 


000100 


302 


OOO004 


3u3 


000C02 


304 


OQ0001 


3P C . 




306 
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SWB.C- -10000 
MOD.C3««4000 
BRF.C--4000 

MOO. C2» -2000 

M0D.C1--1000 

M00.C0-*400 

IE.C--200 

FMT.C1-*100 

VFY.C--100 

FMT.C0»»40 
JMP.C»-40 



CM0.C4--20 

DLY.O-20 

CM0.C3*-10 

CM0.C2--4 

CM0.C1--2 

CM0.C0--1 



SEQ 0045 



COUNT FLAG 
INTERNALLY 



BIT. NOT USED 

BY THIS PROGRAM ONL f 



SWAP BYTE BIT 

MODE BIT 3 

BYTE/RECORD/FIi.E 

BY T505 BUT USED 

MODE BIT 2 

MODE BIT 1 

MODE BIT 

INTERRUPT ENABLE 

FORMAT BIT 1 

URITE VERIFY FLAG BIT. INTERNAL USE ONL 1 . 

NOT USED BY TS05. 

FORMAT BIT 0. 

JUMP BIT -TO DIRECT THIS PROGRAM TO JUMP TO 

A CERTAIN LOCATION IN THE COMMAND SEQUENCE 

TABLE. INTERNAL USE ONLY. 

COMMANO BIT 4 

INSERT DELAY. INTERNAL USE ONLY. 

COMMANO BIT 3 

COMMAND BIT 2 

COMMANO BIT 1 

COMMAND BIT 



iBIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 



CK.ESS"200 
CH.EAI--40 
CH.ERI--20 
DFTSCH--CH.EAI 



{ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 

I ENABLE ATTENTION INTERRUPTS. 

;ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

; DEFAULT CHARACTERISTICS CODE. 



iBIT DEFINITIONS FOR EXTENDED CONTROL WORD 



EF.HSS--40 
EF.RW6-»30 
EF.RB0--2O 



; ENABLE HIGH SPEED SELECT 

;ENABLE BOTH READ L WRITE BUFFERING 

; ENABLE READ BUFFERING ONLV 



;TH£ FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
;IN THE MESSAGE BUFFER. 



MS.RFC--4 

MS.XS0--6 

MS.XS1--10 

MS.XS2--12 

MS.XS3--14 

MS.XS4--16 



I RESIDUAL FRAME COUNT, 

;EXT STATUS REG 

;EXT STATUS REG 1 

jEXT STATUS REG 2 

lEXT STATUS REG 3 

;EXT STATUS REG 4 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 



X0.7MK-- 100000 
X0.RLS--40000 
XO. LET- -20000 
XO.RLL-- 10000 
XO, ONL- -100 
X0.WLK--4 
X0.B0T»-2 
XO.E0T--1 



{TAPE MARK. 
{RECORD LENGTH SHORT 
{LOGICAL EOT. 
{RECORD LENGTH LONG. 
{ON LINE BIT. 
{WRITE LOCK BIT 
;BOT BIT. 
{EOT BIT. 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 



-14 



GiOBAI ARM 1 , 1 - MACRO M1200 
GLOBAL EQUATES SIC HON 
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SEQ 0046 



30/ 




son 


100000 


309 


000200 


510 


000100 


Ml 




312 




313 




M4 


000010 


315 


157400 


316 




317 




35 8 




>19 


100000 


320 


040000 


321 




3. :> 2 




323 




32* 




325 




32o 


000000 


3 .'.'7 


000002 


328 


000004 


329 


000006 


330 




331 




332 




333 


000300 


334 


000012 


33S 




336 


000020 


3?7 


000020 


3^6 


004000 


3 39 




340 




341 


177 740 


342 


000007 


343 


000020 


344 


000020 


345 


153624 


346 


32561 


3*7 


17^774 


348 


177740 


34' > 




:vu> 




351 




352 




353 


100013 


354 




;<s r 




356 


104001 


3b 




356 




359 


104401 


360 




361 




36;? 


104005 


50**» 





X2. OPM «• 100000 

X2.EFF.--200 
X2.BFE="100 



s OPERATION IN PROGRESS, TAPE MOVING 
j EX T ENDED FEATURES ENABLED 
; BUFFERING ENABLED 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 



X3.DCK — 10 
X3.RNY--157400 



{DENSITY CHECK. 

{CAPSTAN RUNAWAY UOIAG ERROR CODE. 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4. 



X4.HSS" 100000 
X4.RCE-- 40000 



{HIGH SPEED SWITCH INDICATING 100IPS 
{RETRY COUNT EXCEEDED 



{THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
{PACKET ENTRIES. 



CP.CMO--0 
CP.ADL--2 
CP.ADH»-4 
CP.CNT--6 

{MISCELLANEOUS DEFINITIONS. 

INTPRI--PRI06 
SCHCNT--12 

MSGCNT--20 
DIACNT--20 
DATCNT--2048. 



RN0PSC--177740 

RANP--7 

RRECL--16. 

WRECL--16. 

RANBC-- 153624 

RANSC- -32561 

NINUSE--177774 

NCMO . C ■ ■ ACK . C ! CVC . C ! OPP . C ! SWB 



;CM0PKT*O--TS05 COMMAND. 
}CM0PKT»2- -BUFFER ADDRESS LOW. 
; CMDPKT>4» -BUFFER ADDRESS HIGH. 
;CKDPKT*6-»BYTE/FILE/REC0RD COUNT 



{PRIORITY TO BE USED IN INTERRUPT STATE. 
{ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
{BUFFER LENGTH. (EVEN ♦) 

;M€SSAGE BUFFER LENGTH IN BYTES. (EVEN *) 
{DIAGNOSTIC COMMAND BUFFER EXTENT. 
{MAXIMUM RECORD LENGTH IN BYTES. 

{THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 
{PROPER REAO/URITE BUFFER ALLOCATION BY THI= SUPER 
{RANDOM Q OF OPERATIONS MASK. 
{COOE TO SELECT RANDOM PATTERN. 
,READ RECOVERY ATTEMPT LIMIT. 
{WRITE RECOVERY ATTEMPT LIMIT. 

{CONSTANT USED TO RESET RANDOM * GENERATOR BASE. 
{CONSTANT USED TO RESET RANDOM O SAVE LOCATION. 
{NOT IN USE COOE FOR DEVICE STATE TABLE. 
C!MOD.C3!MO0.C2!M00.Cl.'M00.C0!lE.C!FMT.Cl!FMT.eo 
{NOT "C0HMANO" BITS, 



{THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TS05 COMMAND, 

DRI - ■ ACK . C ! CMD . C3 ! CMD . C 1 » CMD .CO 

{DRIVE INIT. 



-.OF** 
RDR-* 



ACK.C.'BRF.CICMD.CO 



{READ FORWARD 



ACK.C!BRF.C!M0D,CO!CMO.C0 

iREAD REVERSE 



WRT=* ACK.C!BRF,C!CMU.C0!CMD,C2 

{WRITE COMMAND 



14 



Gl ORAL ARLiU 


MACRO Nic?00 


GLOBAL EQUATES. 


SECTION 


364 




3o5 


104105 


366 




36 7 




363 


104010 


369 




5/0 




571 


104410 


5 ~2 




3/3 




374 


105-101 


375 




576 




377 


125401 


578 




5/9 




3f,0 


105001 


381 




362 




385 


125001 


384 




3»5 




386 


105005 


387 




38;) 




389 


102010 


5^0 




vn 




39.> 


10001? 


391) 




"94 




3 'OS 


100011 


5S'6 




597 




398 


101011 


399 




400 




401. 


105010 


4 Or: 




405 




404 


105410 


40!) 




406 




407 


100017 


408 




409 




-no 


100411 


411 




4 1? 




415 


10041? 


414 




"15 




k ,6 


10101? 


417 




4 18 




419 


Ii0004 


120 
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'>l r J 004 7 



UTV» 


ACK.C 


srf*» 


ACK . C 


SRR-* 


ACK . C 


RNR-^ 


ACK . C 


RNF" 


ACK.C 


RPF»» 


ACK.C 


RPR«« 


ACK.C 


WRR»» 


ACK.C 


RWD-- 


ACK.C 


MBR-- 


■* j . ■ ■» 


WTM-» 


;>*"■■ .: 


WTR-* 


ACK.C 


SFr » * 


ACK.C 


SFR*" 


ACK.C 


GES«« 


ACK.C 


ER5-* 


ACK.C 


UNL-- 


ACK.C 


CLN-* 


ACK.C 


bCH*» 


ACK.C 



BRF . C ! vr Y . C ! CMO . CO ! CMD . C2 

jWRITE VERIFY 



BRF.CJCMD.C3 



; SPACE RECORD FORWARD 



BRF.C!M0D.CC!CMD.C3 

{SPACE RECORD REVERSE 

BRF . C ! MOD .CI! MOD . CO ! CMD . CO 

;READ REV RETRY1 ■• REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 

BRF.C!OPP.C!MOO.C1!MOD,CO!CMO.CO 

jREAD REV RETRY2 - REREAD NEXT FORWARD, IF. READ FORWARD, SPACE REVERSE 

BRF .C'MOD.CISCMO.CO 

;READ FWD RETRY1 - REREAD PREVI0U5 FORWARD, IE. SPACE REVERSE, READ FORWARD 

BRF . C ! OPP . C J MOD .CI! CMD . CO 

jREAD FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 

MOD . C 1 ! BRF . C ! CMD , C2 ! CMO . CO 

j WRITE RtTRY 



M0D.C2JCMD.C3 
CMO. C3! CMO. CI 
CMO. C3! CMO. CO 



j REWIND COMMAND 

l MESSAGE BUFFER RELEASE 

; WRITE TAPE MARK. 



MOD .CI! CMO . C 3 ! CMO . CO 

j WRITE TAPE MARK RETRY. 

BRF.C»M00.C1!CMD.C3 

, SPACE FILE FORWARD 

BRF. C 'MOD. CO! MOO. CI! CMO. C3 

j SPACE FILE REVERSE 

CMO, CO! CMO. CI! CMO. C2! CMO. C3 

{GET EXTENDED STATUS 

M0D.C0!CMO,C3!CMO.C0 

; ERASE 3 INCHES OF TAPE 

MOD.CO!CMD.C3!CMO.C1 

j UNLOAD COMMAND 

M0D.C1!CM0.C3!CMD,C1 

jERASE TAPE. 



CVC.CJCMD.C2 



jSET DEVICE CHARACTERISTICS. 



v!4 



Gi on \i 
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GLOBAi. F .OAYES SECTION 



4 ,- / 
4.v, 

4," 

42t- 

4>fc 

,; *<* 

■". SI 



A 



*3 

:■ 4 



>\ 

4; ' 

4 <.■ 

4; : 

4 v- 
/, « ... 

v* j. 

•*4; ; 
m ; ' 

4A ' 

>:4 . 

4<i V 
44H 
4<9 
450 
451 
45Z 
45? 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
4/0 
4/1 
472 
473 
4/4 
4 75 
4/6 
4 77 



O0233U 
002332 
002334 
002336 



00;? 340 



002344 



002350 
002352 



002354 



140006 
10000/ . 
Ova, 040 
000020 
17777-' 



00 '330 
COCO 00 
Ot.:0OC'0 
OOOOOO 
OCOOOO 



0( 2^0 

\y. ■*:!>■ 



002544 
100012 



002350 

102010 
000001 



SEG 0048 



USM»- 

DIA** 
JMP-* 

DLY«* 
END*» 



ACK .CJCVC.CJCMD.C2i CMD . C 1 

ACK.C!CM0.C2!CMD.C1 

JMP . C 

DI.Y.C 

177777 

GLOBAL DATA SECTION 



{WRITE SUB-SYO MEM 
DIAGNOSTICS. 
JUMP TO *'N"TH COMMAND 
DELAY "N" MS. 

END OF COMMAND SEQUENCES 



.SBTTl. 

♦ ♦ 

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 



RWCPK 



COMMAND PACKET. 

<.»3>£177774 



CMDPKT:! 






j MUST BE ON MOD 4 BOUNORY, 
ilST WORD IS TS05 COMMAND. 

2ND WORD IS THE BUFFER LOW ADDRESS. 

3RD WORD IS THE BUFFER HIGH ADDRESS. 

4TH WORD IS THE BYTE/RECORD/FILE COUNT 



GLT STATUS COMMAND PACKET. 



<. ♦3>6177774 



GSCPKj: .WORD GES 



{MUST BE ON MOD 4 BOUNDRY . 



! MESSAGE BUFFER RELEASE COMMAND PACKET. 

<.»3>6177774 jMUST BE ON MOD 4 BOUNDRY. 
BRCPK s i . WORD M3R 

j REWIND COMMAND PACKET (USED IN EWOR RECOVERY ONLY) 

<.*3>6177774 {MUST BE ON MOD 4 BOUNDRY. 



.WORD 
.WORD 



RWD 
1 



WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 



MSGPKT:: .BLKW 8. 



{1ST WORD 

i2KD WORD 

{3RD WORD 

j4TH WORD 

;5TH WORD 

}6TH WORD 



MESSAGE TYPE. 

DATA FIELD LENGTH. 

RESIDUAL FRAME COUNT 

XSTATO 

XSVAT1 

XSTAT2 



C-l OBAL AREAS MACRO M1200 
GLOBAL DATA SECTION 
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!/ 



</\ 



SEQ 0049 



4 76 






4 79 






480 






481 






48c? 


0023/4 




483 


002414 




484 


0024 34 




485 


002454 




486 






487 






488 






489 


0024 74 


002374 


490 


0024 76 


000000 


491 


002500 


000020 


492 


002502 


000040 


493 


002504 


000000 


494 






4'}S 






496 






497 






498 


002506 


000000 


*99 


002510 


000000 


500 


002512 


000000 


501 






50? 






503 






504 


002514 




505 


002524 




506 


002534 




507 




002514 


508 






509 






510 






511 






512 


002544 


002374 


513 


002546 


002414 


514 


002550 


0024 34 


515 


002552 


002454 


516 






517 






518 






519 


002554 


010034 


520 


002556 


010042 


521 


002560 


010050 


52? 


002562 


010056 


523 






524 






525 






526 


002564 


000000 


52 7 


002566 


000000 


528 


002570 


000000 


52- 


002572 


000000 


530 






531 






532 






533 


00257< 


000000 


534 


002576 


000000 



MSGPKO 
MSGPK1 
MSCPK2 
MSGPK3 



SCHBK: 



MESSAGE PACKETS. 

.BLKW 8. 

.BLKW 8. 

.BLKW 8. 

. BLKW 8 , 

SET CHARACTERISTIC BLOCK. 



j 7TH WORD; 
;8TH WORD; 



XSTAT3 
XSTAT4 



MESSAGE PACKET FOR DEVICE 00 

MESSAGE PACKET FOR DEVICE til 

MESSAGE PACKEf FOR DEVICE 02 

MESSAGE PACKET FOR DEVICE tiZ 



MSGPKO 


MSGCN r 
CH.EAI 




{2ND 
3RD 
4TH 
5TH 



WORD 
WORD 
WORD 
WORD 
WORD 



MSGPKT ADUK uUCSET UP BY EXC'JTfc ROUTINE). 

MSGPKT ADDR HI. 

MSG BUfFER LENGTH CBrTES) 

CHARACTERISTICS W0RDC5ET Bf SETUP ROUTINE) 

HSP 6 BUFFER CONTROL ON EXT'D FEATURES 



WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK 



WSMBKs 



j 1ST WORD 
;2ND WORD 
;3RD WORD 



SEL 

SEL J 
SEL 4 



TS05 REGISTER ADDRESSES. 



TSDB:; ULKW 4 

T'iSR:* .BLKW 4 

TSVCT:: .BLKW 4 
TPBA--TSDB 



TS05 DATA DUSTER ADDRESSES. 
TS05 STATUS REGISTER ADDRESSES 
TS05 VECTOR ADDRESSES. 
DATA BUFFER ADDRESS REGISTER. 



ADDRESSES OF MESSAGE PACKETS. 



MSGPKA: 



MSGPKO 
MSGPK1 
MSGPK2 
MSGPK3 



DEVICE 
DEVICE 1 
DEVICE 2 
DEVICE 3 



ADDRESSES OF INTERRUPT HANDLING ROUTINES 



TS5INT 



TS5IN0 
TS5IN1 
TS5IN2 
TS5IN3 



j DEVICE 
DEVICE. 
DEVICE 
DEVICE 



TS05 CODE LEVELS, WILL BE STORED AFTER 5CH CMD IN BASIC FUNCTION TEST 



TS5CL: 



{DEVICE 
{DEVICE 1 
{DEVICE 2 
{DEVICE 3 



TS05 EXT. FEA 6 BUF. ENA SW'S, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 



TS5iiK: j 




{DEVICE O 
{DEVICE 1 



4 



AL AREAS 


MACRO Ml 200 


AL DATA SECTION 


535 002600 


000000 


536 002602 


000000 


S3,' 




538 




539 




540 




541 




:>42 002604 


177774 


54 3 002606 


177774 


544 002610 


177774 


545 002612 


177774 


546 002614 


177777 


54 7 




548 




549 




550 




551 




552 002616 


003046 


553 002620 


003120 


554 002622 


003172 


555 002624 


003244 


556 




557 




553 


002626 


559 002626 




560 002666 




561 002726 




562 002766 




563 002776 




564 003006 




565 003016 




566 003026 




567 003036 




568 003046 




569 003120 




570 003172 




571 003244 




572 003316 




573 003326 




574 003336 




575 003346 




576 003356 




577 003366 




578 


003376 


579 003376 




580 




581 


000550 


582 




583 




584 




5tt5 




586 




587 003406 


000000 


58? 


003406 


589 003410 


000000 


590 004*412 


000000 


591 003414 


000000 
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SEQ 0050 



{DEVICE 
{DEVICE. 



DEVTBL: 



BTADDRt 



CNTBGN 

WRBC 

RRBC 

RFBC 

URREC 

WRUNR 

RRREC 

RRUNR 

RFREC 

RFUNR 

BTO 

BT1 

BT2 

BT3 

WRTYCT 

PASCNT 

SCCNT: 

VFYCNT 

HRDCNT 

FTLCNT 

CNTEND- 

RECCNT: 



UNIT NUMBERS OF All. DFVTCFS BEING TFSTFDC 1 4). 
WHEN DEVICE IS NOT IN USE. IT, 5 I DCA^ION WILL - 
R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT 

.WORD NINUSE 
.WORD NINUSE 



NUMBER X 



.WORD 
.WORD 
.WORD 



NINUSE 
NINUSE 
END 



BAD TAPE TABLE POINTER 
"WRTY" TO LOG BAD TAPE 



BTO 
BT1 
BT2 
BT3 
COUNTER 



USED 
SPOTS 



ON 



WRITE 
UNITS 



RETRY 
UNDER 



ROUT 1Kb 

TEST 



BLKU 
Bl.KU 

BLKW 
.BLKU 
.BLKW 
.BLKU 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
: .BLKW 
.BLKW 
.BLKU 
.BLKW 
.BLKW 



AREA. 



20 

20 

20 

4 

4 

4 

4 

4 

4 

21 

21 

21 

21 

4 

4 

4 

4 

4 

4 



.BLKW 4 



CNTLEN--CNTEND-CNTBGN 



BYTES WRITTEN. 

BYTES READ REV. 

BYTES READ FWO. 

RECOVERABLE WRIT!! ERRORS. 

UNRECOVERABLE WRITE ERRORS. 

RECOVERABLE READ REV ERRORS. 

IttfECOVERABLE READ REV ERRORS. 

RECOVERABLE READ FWOERRORS. 

UNRECOVERABLE READ FWO ERRORS. 
{UNIT BAT TAPE SPOTS LOG 

UNIT 1 BAT TAPE SPOTS LOG 

UNIT 2 BAT TAPE SPOTS LOG 

UNIT 3 BAT TAPE SPOTS LOG 

WRITE RETRY COUNTER 

PASS COUNT. 

SPECIAL CONDITION COUNT. 
I COUNT OF TS05 DATA COMPARE ERRORS. 
{COUNT OF HARD ERRORS. 
{COUNT OF FATAL ERRORS. 
jENO OF STATICTICAL COUNTERS. 

{NUMBER OF RECORDS FROM BOT : CLEARED ON REWIND 
;AND WHEN RESTARTING 09 CONTINUING TEST 2. 
{LENGTH OF STATISTICAL COUNTER AREA. 



THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES 
USED BY THE PROGRAM. 



DATAWT:: .WORD 
DIABLK--DATAWT 

DATARD:: .WORD 

NCNT;: .WORD 

NCNT1;; .WORD 



WRITE BUFFER ADDRESS. 

WRITE BUFFER ALSO USED FOR DIAG CMD. 

READ BUFFER ADDRESS. 

STORAGE FOR VALUfc OF N. 

TEMP STORAGE FQR VALUE OF N. 



m 



GLOBAL AREAS MACRO M1200 
GLOBAL DATA SECTION 
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SEQ 0051 



5j;? 


003416 


000000 


593 


003420 


177777 


594 


003422 


17777/ 


595 


003424 


177777 


596 


003426 


000000 


59? 


003430 


000000 


598 


003432 


153624 


599 


003434 


032561 


600 


003436 


000000 


601 


003440 


000000 


602 


003442 


000000 


603 


003444 


000000 


604 


003446 


000000 


605 


003450 


000000 


606 


003452 


000000 


607 


003454 


000000 


608 


003456 


oocooo 


609 






610 






611 






612 






613 




003460 


614 


003460 


000000 


615 


003462 


000 


616 


003463 


000 


617 


003464 


000 


618 


003465 


000 


619 


003466 


000 


620 


003467 


000 


621 


003470 


000 


622 


003471 


000 


623 






624 




003472 


625 






626 






627 






628 






629 


003472 




630 


003502 




631 


003512 


000000 


632 


003514 


000 


633 


003515 


000 


634 


003516 


000 


635 


003517 


000 


636 


003520 


000 


637 


003521 


000 


638 


003522 


000 


639 


003523 


000 


640 


003524 


coo 


641 


003525 


000 


642 






643 






644 






645 




003526 


646 






64 7 






648 







BRFCN1 


' : : . WORD 





CMOWRD;: .WORD 


END 


CMDSAV:: .WORD 


END 


PCMDWD-. i .WORD 


END 


CMOL.G 


: .WORD 





LENMSK:: .WORD 





RANB: 


.WORD 


153624 


RANS: 


.WORD 


32561 


TIME1 


: .WORD 





TIME2 


: .WORD 





JLOOP 


: .WORD 





JLOC: 


.WORD 





PATERN:: .WORD 





CTCC: 


.WORD 





R5SAVE:: .WORD 





TSSREG:: .WORD 





WTMFLGjj .WORD 






STORAGE F'OR BPCR VALUE, 

CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY 

SAVE LOCATION FOR CMD UORD DURING ERROR RECOVER f 

CONTAINS PREVOUS COMMAND WORD. 

CURRENT COMMAND LOGGING CODE. 

RANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 

RANDOM GENERATOR BASE. 

RANDOM SAVE LOCATION. 

TIME COUNT 1. 

TIME COUNT 2. 

JMP COMMAND LOOP COUNT. 

JMP COMMAND LOCATION COUNT . 

PATTERN SELECT CODE. 

CURRENT TERMINATION CLASS CODE. 

LOCATION FOR SAVING CURRENT DEVICE POINTER, 

CURRENT STATUS REGISTER. 

WRITE TAPE MARK FLAG 

ERROR FLAG AREA. THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 



* OF RECOVERY ATTEMPTS EXECUTED. 

WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
WRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
WRITE RETRY ON SAME SPOT ERROR FLAG 
j RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
DATA BYTES ANO ERRORS HAVE BEEN LOGGED FOR THIS RECORD 
READ/WRITE ERROR HAS OCCUREO. 
UNRECOVERABLE ERROR HAS OCCURED, 
ERROR RECOVERY MODE. 



FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 

{INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
;EOT/BOT FLAGS FOR EACH DEVICE CXSTATO). 
;BAD TAPE SPOT POINTER TO BT0-BT3 VIA BTADDH 
iBOT IS EXPECTED, DO NOT ABORT ON BOT/FUNC RT1. 

RANDOM EVERYTHING FLAG. 

SET DURING WRITE/VERIFY COMMAND. 

PERFORMANCE REPORT HAS BEEN REQUESTED. 

ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO 
j INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
{CURRENT UNIT HAS BEEN DROPPED 



BGNFLG* 






RETRYC: 


: .WORD 





RPTCNT: 


; .BYTE 





WRTYFG: 


: .BYTE 





WRTYER; 


: .BYTE 





RECLOG: 


: .BYTE 





ERLOG:: 


.BYTE 





RWERR:: 


.BYTE 





UNREC:: 


.BYTE 





ERRREC: 


: .BYTE 
.EVEN 





ENDERF* 






• 


ADDITION? 


INTFL.G: 


: .BLKW 


4 


EOTFLG: 


: .BLKW 


4 


BTPT:: 


.WORD 





EXPBCT: 


: .BYTE 





RANDOM: 


: .BYTE 





VFYFLG: 


: .BYTE 





RPTFLG: 


: .BYTE 





SWBFLG: 


: .BYTE 





IRE: : 


.BYTE 





DROPED: 


: .BYTE 





T1SWB: : 


.BYTE 





ALLF.OT: 


: .BYTE 





ERSFLG: 


: .BYTE 
.EVEN 





ENQFLG" 


. 





TEST1 SWAP BYTES FLAG 
ALL UNITS S EOT FLAG 
ERASE FLAG: DO ERASE 
BADLY WRITTEN RECORD. 
|A 3 TO 12 INCH GAP MAY 



AFTER A SPACE REV TO DELETE 
1 TO 4 ERASES LEAVING 
RESULT. 



ADDITIONAL FLAGS. THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 



N4 



AL A 


IREAS 


MACRO M1200 


AL DATA SECTION 


649 


003526 


000 


650 


003527 


000 


651 


003530 


000 


65? 


003531 


000 


653 


003532 


000000 


654 


003534 


000000 


655 






o56 






657 






658 






659 


003536 


000000 


660 






661 






662 






663 






664 






665 






666 


003540 


140004 


667 


003542 


000040 


668 


003544 


000001 


669 


003546 


000000 


670 


00355^ 


102010 


671 


000352 


000001 


■>72 


J03554 


000001 


673 


003556 


000007 


674 


003560 


104005 


675 


003562 


004000 


676 


003564 


076400 


677 


003566 


000007 


678 


003570 


1C4401 


67S 


003572 


004000 


68C 


003574 


076400 


681 


003576 


000007 


682 


003600 


104001 


683 


003602 


004000 


684 


003604 


076400 


685 


003606 


000007 


686 


003610 


102010 


687 


003612 


000001 


688 


00S614 


C 00001 


689 


003SJ6 


000007 


690 


00 36, JO 




691 


0037*.^ 


i. 77777 


692 


oc<4;> 


177777 


693 


003744 


177777 


694 


003746 


177777 


695 


003750 


177777 


696 






697 






696 


003752 


100013 


699 


103754 


104001 


700 


003756 


104401 


70. 


003760 


1C4005 




C03762 


104105 


". C ♦ 
70S 


003764 


104010 
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bEQ 0052 



sTAFLG: 


: ,8^TE 





PWRKLG: 


: .BYTE 





TRAPD4; 


: .BYTE 





MISCf'G: 


; .BYTE 





TSUNT: j 


.WORD 





TSNP:: 


.WORD 






START FLAG - GET Br INIT COOE It STARTING. 



POWER FAILURE FLAG 
TRAPED AT 4 FLAG 
MISCELLANEOUS FLAG 
NUMBER OF THE UNI! 



- SET ONI.f DURING INIT. 



UNDER rtSI PLUS HS5P6BUF 



OPFLAG 



CMDSEQ 



CMDSE2 



SEQEND 



CMDTBL 



FOR PRINT OUT UNIT » ONLY 

OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 



. WORD 
EVEN 



j READ ONLY OPERATOR FLAG WORD 



;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
{HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
{CAN BE UPDATED BY A TES7 OR BY OPERATOR INPUT. 

{SET CHARACTERISTICS. 



REWIND. 
BYTE COUNT. 
ONCE. 
PATltNN. 
WRITE. 

MAX BUFFER LENGTH. 
32,000 RECORDS. 
RANDOM PATTERN. 
READ REV. 

MAX BUFFER LENGTH. 
32,000 RECORDS 
RANDOM PATTERN. 
READ FWD. 

MAX BUFFER LENGTH. 
32,000 RECORDS, 
RANDOM PATTERN. 
REWIND. 
BYTE COUNT. 
ONCE. 
PATTERN. 

EXTENSTION TO DOUBLE BUFFER SIZE 
<SOFT END OF SEQUENCE TABLE. 



. WO.ID 


SCH 


.WORD 


CH.iAI 


.WORD 


1 


.WORD 





.WORD 


RWD 


.WORD 


1 


.WORD 


1 


.UUHO 


RANP 


.WORD 


WRT 


.WORO 


DATCNT 


.WORD 


32000 . 


.WORD 


RANP 


.WORD 


RDR 


.WORO 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


RDF 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


RWD 


.WORD 


1 


.WORD 


1 


.WORD 


RANP 


.BLKW 


40. 


.WORD 


END 


.WORD 


END 


.UORD 


END 


. WORD 


ENO 


.WORD 


FND 


.THE FOLLOWING IS 


.WORD 


DRI 


. JORD 


RDF 


.WORD 


RDR 


.WORD 


W'RT 


.WORD 


WTV 



jHARD END OF SEQUENCE TABLE. 
THE TS05 COMMAND TABLE 



{DRIVE INIT. 
iREAD FORWARD 
{READ REVERSE 
;WP£TE 
{WRITE/VERIFY 



C WRITE ALL RECORDS. RDR AND 

AND 



.WORD 



*.F 



{CHECK DATA ON ALL RIXCHOS, RDF 
jCHFCK DATA ON ALL RECORDS.) 
{SPACE »'N" RECORDS FORWARD. 



r » » 
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706 
70? 
706 
709 

710 

711 
712 

"13 

714 
715 
716 
717 

718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
726 
729 
750 
731 
732 
733 
734 
735 
736 
737 
7 38 
739 
740 
741 
742 
743 
744 
745 
746 
747 
746 
749 
750 
751 
752 
753 
754 
755 
756 
757 
756 
759 
760 
761 
762 



003766 
003/70 
003772 
003774 
003776 
004000 
004002 
004004 
004006 
004010 
OO4012 
004014 
004016 
004020 
0O4022 
0O4024 
004026 
004030 
004032 
004034 
004036 



004040 
004043 
004046 
004051 
004054 

004057 
004062 
0O4065 
004070 
004073 
004076 
0O4101 
0O4104 
004107 
004U2 
004115 
004120 
004123 
004126 
0O4131 
0O4134 
0O4137 
0O4142 

004145 



004150 



004155 



104410 
105401 
125401 
105001 
125001 
105005 
102010 
100012 
100011 
101011 
105010 
105410 
100017 
100411 
100412 
101012 
14C0O4 
100006 
000040 
000020 
177777 



104 
122 
122 

127 
127 

123 
123 
122 
122 
122 
122 
127 
122 
115 
12/ 
127 
123 
123 
107 
105 
125 
103 
123 

104 



112 
104 



122 
104 
104 
122 
124 

122 

122 
116 
116 
120 
120 
122 
12/ 
102 
124 
124 
106 
106 
105 
122 
116 
? 14 
103 

111 



115 



114 



111 
106 
122 
124 
126 

106 
122 
122 
106 
106 
122 
122 
104 
122 
115 
122 
106 
122 
123 
123 
114 
116 
110 

101 



120 
131 



CMOASC: 



word 

WORD 

WORD 
WORO 

word 

JORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORO 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



SRR 
RNR 
RNf 

ppr 

RPR 

WRP 

RWO 

MBR 

WTM 

WTR 

SM 

SFR 

CitS 

FRS 

UM. 

CLN 

SCH 

OIA 

JMP 

DLY 

END 



SEQ 005 Z 



REVERSE. 

, '>PACF FWO, READ RE VERSF . 
, READ FORWARD, SPACE REVERSE. 
I.E.. SPACF RF VERSE, READ FORWARD 
I.E., READ REVERSE, SPACE FORWARD 



SPACE "N" RECORDS 

READ NEXT REVERSE. I.E. 

READ NEXT FORWARD, I.E 

READ PREVIOUS FORWARD. 

READ PREVIOUS RJ. VERSE. 

WRITE RETRY. 

REWINO. 

MESSAGE BUFFER RELETS 

WRITE TAPE MARK 

WRITE TAPE MARK R« TRY . 

SPACE "N" FILES FORWARD, 

SPACE "N" FILES REVERSE. 

GET EXTENOFD STATUS. 

ERASE 3 INCHES OF TAPE. 

REWIND AND UNLOAD. 

CLEAR TAPE. 

SET CHARACTERISTICS. 

DIAGNOSTIC COWANO. 

JUMP TO THE NTH COMMAND IN THE SEQUENCE. 

DELAY "N" MS. 

ENO OF COMMANO TABLE 



THE FOLLOWING TABLE CONTAINS THE ASCII FQP EACH COMMAND. 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
,*SCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.A^CII 
.A^CII 
.ASCII 
.ASCII 
.ASCII 
•ASCII 



/DRI/ 
/ROF/ 
/RDR' 

/WRT/ 
/WTV/ 

/SRF/ 
/SRR/ 

/RNF/ 
/RPF/ 
/RPR/ 
/WRR/ 
/RWO/ 
/MBR/ 
/WTM/ 
/WTR/ 

/r c F/ 

/SFR/ 
/GES/ 
/ERS/ 
/UNI./ 
/CLN/ 
/SCH/ 



•ASCII /DIAZ 
•ASCII /JMP/ 
.ASCII /DLYV 



DRIVE INIT. 

READ FORWARD. 

REAO REVERSE. 

WRITE 

WRITE/VERIFY. (WRITE ALL RECORDS. RDR AND Check DATA 

ON ALL RECOROS, ROF AND CHECK DATA ON ALL RECORDS.) 

SPACE "N" RECOROS FORWARD. 

SPACE "N" RtCOROS REVERSE. 

READ f*XT REVERSE. I.E.. SPACE FWO REAO REVERSE.. 

REAO NEXT FORWARD, I.E.. READ FORWARD. SPACE REVERSE. 

REAO PREVIOUS FORWARO. IE., SPACE REVERSE, REAO FORWARD 

REAO PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 

WRITE RETRY. 

REWINO. 

MESSAGE BUFFER RELEASE 

WRITE TAP€ MARK 

WRITE TAPE MARK RETRY. 

SPACE M N" FILES FORWARD, 

SPACE *N" FILES REVERSE. 

GET EXTENDED STATUS. 

ERASE 3 INCHES OF TAPE. 

REWINO AW UNLOAD, 

CLEAN TAPE. 

StT CHARACTERISTICS. WHERC BRF-200, 40. 20. 0. 

SEE TSV05/1S05 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 

DIAGNOSTICS. SEE T5V05/TS05 PROGRAMMING SPECIFICATION 

FOR DESCRIPTION. OOT MUST BE USED TO LOAD DIAGNOSTIC DATA 

INTO THE WRITE BUFFER BEFORE THIS CMO 15 ISSUED. 

JUMP TO THE NTH COMMAND IN THE COMMAND 

SEQUENCE TABLE. WHERE N IS DEFINED IN 

THE OF OPERATIONS. 

DELAY -H lt MS, WHERE N IS DEFINED IN 

THE P OF OPERATIONS, 
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r ,F'j 0054 



765 004156 

.'64 

7bb 

"66 

767 

768 

'69 

'.'0 

•;i 

775 
7 74 
775 
7 76 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
002 
803 
804 
8C5 
806 
807 
008 
809 
810 
811 



105 



116 



104 



813 
814 
815 
816 
817 

818 
819 
820 
821 
822 
823 
824 
825 



004162 
004231 

004306 
004346 

004430 
0O4453 
0044 75 
004521 
004536 
0O4556 
004603 
0O4622 
004642 
004670 
0O4 705 
004 727 
0O4 753 
005017 
005041 
O05O65 
005114 
005146 
005226 
005275 
005337 
005560 
005422 
005456 
005507 
005543 
005570 
005653 
00574^ 
005744 



045 
045 

130 
103 

104 
116 
125 
\22 

124 

122 
104 
106 
106 
116 
124 
124 
1C3 
122 
125 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
040 
045 
045 



116 
116 

130 
115 

101 
117 
116 
106 
123 
105 
122 
125 
101 
317 
101 
117 
101 
105 
116 
116 
116 
116 
116 
104 
101 
101 
101 
101 
101 
116 
101 
052 
116 
116 



045 
045 

130 
104 

124 
040 
104 
103 
126 
124 
111 
116 
124 
040 
120 
117 
120 
103 
122 
045 
045 
045 
045 
064 
116 
122 
122 
101 
107 
045 
111 
052 
000 
045 



ASCII 
EVEN 



/F.Nt)/ 



I END Of COMMAND SEOUENCt 



.SOTTL Gl OBAl TEXT SECTION 

I ♦ ♦ 

j THE GLOBAL TEXT SECTION CONTAINS FORMAT <jTA IF MENTS, 

i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

i MORE THAN ONE TEST. 

J - - 



i FORMAT STATEMENTS USED IN PRINT CALLS 



.NLIST BEX 



COOELM 
SWSET: 

MALTM: 
CMDPKM 

WTVERN 

TOCRM: 

SCERM: 

RfCERtl 

NSSRM: 

RLEXM: 

ATTW: 

FUNRM: 

FATSM: 

NOINTM 

TSAM;: 

TOOMM: 

RNYh : : 

RERM;: 

URERMs 

DROPOH 

AUORPM 

AUORUN 

0TAER2 

DTAER3 

0TAER4 

DTAER5 

NURTY1 

OTLINM 

GETSTM 

NOOEV: 

UNIWLK: 
CRLF: : 

CRLFSPi 



/#N*AUNIT #01#A TS05 CODE LEVEL #03*N*N' 
/*N#AUNIT #D1*A IS05 SWITCH SETTINGS #03*N*N/ 



.ASCIZ 
.ASCIZ 
.EVEN 

.ASCIZ .'XXX CMO - TTPE <CR> TO CONTINUE/ 

.ASCIZ /CMD PACKET ADR NOT ON MODULO 4 BQUNOARy; RELOAD'/ 
.EVEN 

.ASCIZ /OATA COWARE ERROR/ 

.ASCIZ /NO TSV05 RESPONSE/ 

.ASCIZ /UNDEFINED SPEC COND/ 

.ASCIZ /RFC HON ZERO/ 

.ASCIZ /TSV05 NOT READ*/ 

.ASCIZ /RETRY LIMIT EXCEEDED/ 

.ASCIZ /DfllV* OFF LINE/ 

.ASCIZ /FUNCTION REJECT/ 

.ASCIZ /FATA*. SUBSYSTEM ERROR/ 

.ASCIZ /NO INTERRUPT/ 

.ASCIZ /TAPE STATUS ALERT/ 

.ASCIZ /TOO HANY INTERRUPTS/ 

.ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS;/ 

.ASCIZ /RECOVERABLE ERROR/ 

.ASCIZ /UNRECOVERABLE ERROR/ 

.ASCIZ /*N*AO«0PPE0 UNIT #01*N/ 

.ASCIZ /*N*AALL UNITS DROPPED#N#N/ 

.ASCIZ /*N*AOIAGNOSTIC ONLY SUPPORTS ONE CONTROLLER*N*N/ 

, ASCIZ "*N*ABY TE : *04#S2*AWrtS ;*6«*S2*AS/B : *68#N" 

.ASCIZ M *04#A BYTES IN ERROR OUT OF *D4*N" 

.ASCIZ /*ANQ DATA READ*N/ 

.ASCIZ /^ARECORD TOO LONG: >#04#A BYTESKN/ 

.ASCIZ /rfARECOVEREO ON RETRY **0?*N/ 

.ASCIZ /rfAORIVE tfOUA OFF LINEHN/ 

.ASCIZ /#AGET STATUS CMD RESULTS:*N/ 

.ASCII /*N#A0U5 TRAP AT #06*N/ 

!ASCIZ /rfAINTERFACE, BAD OR TSD6 NOT SET TO ABOVE ADORESS*N/ 

.ASCIZ / ♦♦♦♦♦TAPE IS WRITE-LQCKED AND WILL CAUSE HRRQR&*****'' 

.ASCIZ /*N/ 

.ASCIZ /*N#S7' 

•LIST BEX 



\y> 
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ULOBAl. TEXT SECTION 



SEO 0055 



8?^ 

8;? : 

828 
8? 9 
830 
831 
832 
83? 
83. 
835 
836 

84^ 



843 



844 
645 
846 

847 
848 
849 

850 
851 
852 



853 



854 

855 
856 



857 
858 

Q59 



005752 
005752 
005752 
005752 
005756 
005762 
005766 
005772 
005776 
006000 
006002 
006006 
006006 
006012 
006016 
*020 
006022 
006026 
006032 
006036 
006042 
006046 
006052 
006056 
006062 
006066 
006066 
006072 
006076 
006102 
006104 

006106 
006112 
006112 

006114 



006116 
006116 
00611c 

006120 
006120 
006120 
006120 
006124 
006130 



016546 
016546 
013746 
012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
1044 K 
062706 
010237 
010337 
01O437 
004737 
013702 
010337 
013703 
013704 

013746 
012746 
012746 
010600 
104414 
062706 

000167 
000000 



104423 



016546 
016546 
013746 



0033 76 
003526 
003534 
0064 36 
000004 



0OC012 

006530 
000001 



000004 
007066 
003436 
003440 
010064 
007066 
007066 
003436 
003440 

007066 
006562 
000002 



000006 



003376 
003326 
003534 



SEUTl. 



.EVt N 

GLOBAL ERROR REPORT 



SECTION 



l THE GLOBAL ERROR 
! THAT APE USFD IN 
; THAT ARE USED Br 
\ - - 



REPORT SECTION CONTAINS THE PRINTB ANO PRINT/ CALLS 
MORE THAN ONE TEST. IT ALSO INCL'JDES THE ASCII MESSAGES 
THE PRINTB AND PRINT* CALLS.. 



D1 AERH; 
DATERMj 



BGNMSG DTAFRM 

PRINTB 0STAER1,TSNP,PASCNT(R5),RECCNT(R5) 







MOV 


RECCNKR5), -CSP) 






MOV 


PASCNTCR5), (SP) 






MOV 


TSNP.-CSP) 






MOV 


0STAER1, (SP) 






MOV 


04 , - ( SP ) 






MOV 


SP.RO 






TRAP 


C$PNTB 






ADD 


012. SP 


P:MMT'.: 


0STAt.»7 










MOV 


0STAER7, -(SP) 






MOV 


•1. -(SP) 






MOV 


SP,RO 






TRAP 


C$PNTB 






ADD 


04, SP 


MOV 


R2.RECRED 


jSAVE R2 




MOV 


R3,TIMEl 


j SAVE R3 




MOV 


RA,TIMt2 


jSAVE R4 




JSR 


PC.RECTAP 


jRETRIEVE RECORD READ 




MOV 


RECRED.R2 


;REST0HE R2 




MOV 


R3.RECRED 


j SAVE RECORD READ 




MOV 


TTMEl f R3 


iRESTORE R3 




MOV 


TIME2.R4 


jRESTORE R4 




PRINTB 


0STAER6.RECRED 


jPRINT RECORD READ 








MOV 


RECRED. -CSP) 






MOV 


0STAER6, -(SP) 






MOV 


♦2, (SP) 






MOV 


SP.RO 






TRAP 


CiPNTB 






ADO 


06, SP 


EXIT 


MSG 










.UORD 


JUMP 






.WORD 


L10002-2-. 



.EVEN 
ENOMSG 



L 10002: 



BGNMSG 
STAERM: j 
STAERM; tPRINTB 



STAERM 
0STAER1,TSNP,PASCNT(R5),RECCNT(R5) 



TRAP C*MSG 



MOV RECCNT(R5\-(SP) 
MOV PASCNTCR5). -CSP) 
MOV TSNP,-(SP) 
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GLOBAL ERROR REPORT SECTION 



660 



861 
662 
863 
864 
865 
866 
867 
868 



006134 
006140 
006144 
006146 
006150 
006154 
006154 
006160 
006164 
006166 
006170 
006174 
006200 
006204 
006206 
006210 
0O6212 



006216 
006222 
006222 
006226 
006232 
006256 
006240 
006242 

869 006246 
006246 
006252 
006256 
006260 
006262 

870 006266 
006266 
006272 
006276 
006302 
006 306 
006312 
006316 
006322 
006324 
006326 

871 006332 
006332 
006336 
006342 
006346 
006352 
006356 
006360 
006362 

672 006366 

006366 

006372 
006376 
006402 
006406 



012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062706 
013702 
0*2702 
005302 
005702 
001016 
004737 
010337 

013746 
012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
017546 
013746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 



01b 746 
013746 
013746 
013746 
013746 



0064 V? 
000004 



00001c 1 

006530 
000001 



000004 
002330 
177740 



010064 
010064 

007066 
006562 
00OO02 



000006 

006616 
000001 



000004 

003450 
003454 
002360 

002514 
002330 
006675 
00OOO6 



000016 

002336 
002334 
002332 
006733 

OOOOCm 



000012 



002372 
002370 
00236b 
002364 
002362 



PRINTS 0STAER7 





SFQ 0056 


MOV 


0STAER1, -C SP) 


MOV 


04 , C SP ) 


MOV 


SP.RO 


TRAP 


Ci D NTB 


ADD 


012. SP 


MOV 


0STAER7, -CSP; 


MOV 


01, -(SP) 


MOV 


SP.RO 


TRAP 


CtPNTB 


ADD 


04. SP 



MOV 


CMDPKT.R2 


BIC 


0177740, R2 


DEC 


R2 


TST 


R2 


BNE 


50000$ 


JSK 


PCRECTAP 


MOV 


R3,RECrAP 


PRINTB 


0STAER6.RECRED 



{IF CMD IS A READ 



jTHF.N RETRIEVE 
;AND 
j TYPE RECORD READ 



50000$; PRINTX 0STAER2 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX OST AER3 . CMQPKT . STSDBC R5 ) , MSGPKT * MS . RFC . TSSREG , L'TCC 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

PRINTX OS T AER4 . CMOPKT *2 . CMOPKT *4 , CMOPKT »6 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



RECRED. -CSP) 

0STAER6.-CSP) 

02. -(SP) 

SP.RO 

CIPNTB 

06. SP 

0STAER2.-CSP) 
01. -CSP) 
SP.RO 
CIPNTX 
04. SP 

CTCC.-CSP) 
TSSREG. -(SP) 
MSGPKT ♦ MS. RFC. -CSP j 

aTsoe(R5).-(SP) 

CMOPKT, -f SP) 
0STAER3, -(SP) 
06. -CSP) 
SP.RO 
CIPNTX 
016. SP 

CMOPKT»6. -(SP) 
CMDPKT*4, -(SP) 
CMDPKT*2, -(SP) 
0STAER4, -(SP) 
04. -CSP) 
SP.RO 
CIPNTX 
012, SP 



PRINTX OST AER5 .MSGPKT *MS. XSQ. MSGPKT *MS«XS1 .MSGPKT *MS. XS2, MSGPKT *MS . XS3.MSGPK T ♦ MS. XS 

MOV MSGPKT ♦MS.XS4. -(SP) 

MOV MSGPKT ♦MS, XS3. -(SP) 

MOV MSGPKT*MS.XS2, -CSP) 

MOV MSGPKT ♦MS.XSl. CSP) 

MOV MSGPKT*MS.XSO. -CSP) 
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SEQ 0057 



873 



674 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 



89? 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 



006412 
006416 
006422 
0064 24 
006426 
006432 
006432 
006454 



006436 

006530 
006562 
006616 
006675 
006733 
006740 
006745 
006753 
007027 



007070 
007070 
007070 



012746 
012746 
010600 
104415 
062706 

000167 
000432 



0*5 

045 
045 
045 
045 
045 
045 
045 
045 
045 



00675? 
000006 



000016 



101 

101 

122 
116 
117 
117 
117 
117 
101 
117 



130 

120 
061 
045 
066 
066 
066 
066 
130 
066 



007066 000000 



104423 



STAER7 
STAER6 
STAER2 
STAER3 
STAER4 



STAER5 

RECRED 
L 10003 
.SBTTL 



EXIT 



.NLIST 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

♦ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.LIST 

.EVEN 

.WORD 

ENOMSG 



MSG 



BEX 

/#AXXX CMD FAILED 



MOV 

MOV 

MOV 

TRAP 

ADD 

.WORD 
.WORD 



0STAFP5, 
#6, -CSP) 
SP,RO 
CiPNTX 
£16, SP 

J$JMP 

L 10003 -2- 



C5P) 



- UNIT #Dl*S3*APASS:*D5*S3*AREC0RD;i<D5*N/ 



/*APREVlOUS CMO WAS XXX / 

/HSllrfA* RECORD READ:*D5#A */ 

/*N*ACMDPKT*S2*ATSBA*S4*ARFC*S5*ATS5R*S3*ATCC*N/ 

/*06*S2*06*S2*06*S2*06*S2*01*N/ 

/#06#N/ 

/*06#N/ 

/#06*N/ 

/*AXSTO*S4#AXSTHS4*AXST2*S4*AXST3*S4*AXST4rfN/ 

/*06#S2*06*S2*06*S2*06*S2*06*N/ 

BEX 







{RECORD READ FROM TAPE 



TRAP 



CSMSG 



GLOBAL SUBROUTINES SECTION 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS, 



INPUTS: 



R5 



OUTPUTS: 



RO 
CARRY 



CURRENT UNIT NUMBER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEGUENCE: 



(n'.J 
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seq oosa 



921 

922 

923 

924 

925 

926 

927 

928 007072 

929 

930 007072 

931 007100 

932 007104 

933 007110 

934 007114 

935 007116 
007116 
007122 
007124 
007130 
007132 
007136 
007140 
00 7144 

936 007146 

937 007150 

938 007152 

939 007156 

940 007160 

941 007164 

942 007170 

943 007172 

944 'X07174 

945 0O7176 

946 007200 
94? 00720o* 
948 

949 
950 
951 
952 
953 
954 
955 
956 
957 
95b 
959 
960 
961 
962 

963 007204 
007204 

964 007206 

965 007212 

966 007216 

967 007220 
96$ 007222 



012775 
004 737 
012703 
004737 
103416 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
017500 
010004 
042704 
052704 
020400 
001402 
0002". 1 
000401 
000261 
000207 



104422 
012746 
017500 
105700 
100420 



JSR 
JSH 
BCS 
ERRDF 



PC.FIRSTU 
PC.SOF'INIT 

CONTINUE 



{REPORT FATAL ERROR 



SOFINIT. : 



000000 002524 
012700 
000550 
007204 



000250 
002116 
177772 
177756 



002524 

176277 
002200 



0056 70 
002524 



2$: 



MOV 
JSR 
MOV 
JSR 
BCS 
DELAY 



*0,3TSSR(R5) 

PC.WSSR 

<?360. »R3 

PC.WAITF 

3$ 

250 



} (SAVREG) SAVE THE REGISTERS 

I 00 THE INIT. 

;WAIT FOR UNIT TO BE READ/ 

: WAIT FOR SSR 



MOV 


*250,CPC)> 


.WORD 





MOV 


L*DLY,(Pn» 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


.-20 





DEC 


R3 




BNE 


2i 


3$: 


MOV 


3TSSR(R5),R0 




MOV 


R0.R4 




BIC 


*tC<TS.Al7J IS. 




BIS 


*TS.SSR!TS.NBA 




CMP 


R4.R0 




BEQ 


5$ 




CLC 






n^ 


lOi 


5$: 


SEC 




10$: 


RTS 


PC 



;GET THE TSSR REGISTER 

;TSSR CONTENTS 
A16JTS.0FL>.R4 
,R4 jR4 HAS EXPECTED CONTENTS 

;0NLY EXPECTED BITS SET ? 

;BRANCH IF OKAY 

5 CLEAR THE CARRY FOR ERROR 

;G0 TO EXIT 

{SET THE CARRY BIT 

{RETURN TO CALLER 



SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 CURRENT UNIT NUMBER 



J 



OUTPUTS: 



RO 
CA3RY 



WAITF.. BREAK 

MOV 
2$: MOV 

TSTB 
BMI 

DELAY 



CONTENTS OF LAST TS3R READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



♦ 3000. , -CSP) 

STS5R(R5),R0 

RO 

3$ 

25 



j DO A SUTVSR BREAK FIRST 

j 300 MSEC TIMER. 
iREAD THE TSSR REGISTER 
{TEST FOR READf BIT SET 
i EXIT ON STOP FLAG. 
: WAIT 



TRAP 



C$BRK 



I ! 



. ) 
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007222 


012727 


000025 




007226 


000000 






007230 


013727 


0021 \b 




007234 


000000 






00 7236 


00556 7 


1777/? 




007242 


001375 






007244 


005367 


177756 




007250 


001367 




969 


007252 


005516 




970 


007254 


001356 




971 


007256 


000241 




97? 


007260 


000401 




•'.'3 


007262 


000261 




*74 


007264 


0Od?26 




975 


007266 


000207 




976 








97 7 








978 








979 








980 








981 








932 








983 








984 








985 








986 








987 








988 








989 








990 








991 








992 








993 








994 








995 








996 








997 








998 








999 








1000 








1001 








100? 








1003 








1004 








1005 








1006 








1007 


007270 






1008 


O07270 


01047^ 


002514 


1009 


007274 


004737 


007204 


1010 


007300 


10340} 




1011 


007302 


000421 




1012 


007304 


005724 




101? 


007306 


011402 




1014 


007310 


011203 




1015 


007312 


032 763 


000-100 


1016 


OO7320 


00140? 




1017 


007322 


005237 


002322 





SFQ 0059 


MOV 


025 , ( PC ) * 


.WORD 





MOV 


LSDL r, fPO* 


. WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



3$ 
4$ 



DEC 


(SP) 


BNE 


2* 


CLC 




BR 


4$ 


SEC 




DEC 


(SP)* 


RTS 


PC 



{REDUCE DELAY COUNT 

;RETRY UNTIL TIMER EXPIRES 

} C - 0, CONTROLLED STILL RUNNING.,. 

;...0R HUNG-UP AFTER 300 MSEC. 

5 C - 1. CONTROLLER IS STOPPED. 

{RESTORE STACK WITHOUT CHANGING CARR i BIT 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES 

INPUT: 

R4 ADDRESS OF COMMAND PACKET 

R5 CURRENT UNIT NUMBER 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTfcNOED FEATURES PRESENT 
BEN8SW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



000012 



WRTCHK: 


: 




10$: 


MOV 


R4,arSDB(R5) 




JSR 


PC.WAITF 




BCS 


401 




BR 


60$ 


40$: 


TST 


(R4)» 




MOV 


CR4),R2 




MOV 


CR2),R3 




BIT 


*X2.EFE I MS.XS2(R3) 




BEQ 


45$ 




INC 


EXTFEA 



OK 
CLEAR 



I SEND OUT COMMANC 

jUAIT FOR SSR 

»BR. IF SSR IS SET AND 

j BR IF TROUBLE CARRY - 

{STEP IT 

{POINT TO WRT CHARA DATA PACKET 

{GET ADDRESS Of MESSAGE BUFFER 

jEXTFNDED FEATURES BIT SET? 

iBR IF NO 

}SEI EXTENDED FEATURES SW SWITCH 



IS 
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SEQ 0060 



1018 
101.9 
1020 
1021 
1022 
1025 
1 024 
1025 
1026 
102 7 
1028 
1020 
1050 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1046 
1049 



1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 



007326 
00 7326 
007334 
007336 
007342 
007342 
007344 
007346 
007350 
007354 



007356 
007356 
007362 
007366 
0O7370 
007372 
007374 
007376 
007400 
007406 
007410 
007410 
007412 
007414 
007416 
007420 
007424 
007426 
00 7430 
007432 
007434 
007434 



032 763 
001402 
005237 

000261 
000401 
000241 
017500 
000207 



010475 
004737 
103401 
0OO420 
005724 
011402 
011203 
032763 
001407 

104456 
000001 
005653 
000000 
0O4737 
000402 
0O0261 
000401 
000241 

000207 



45$ 



000 100 
002324 

002524 



000012 





BIT 


4X2.BFE # MS.XS2(R3) 




BFQ 


50$ 




INC 


BENB5W 


50$: 






55$: 


SFC 






BR 


70$ 


60$: 


CLC 




70$: 


MOV 


aTSSR(R5),R0 




RTS 


PC 



{BUFFER ENABLE SWITCH SET 

{BR, IF" SWITCH NOT SET 

{SET SOFTWARE SWITCH FOR ENABLED 

{SET CARRY NO TROUBLE 

{EXIT 

{CARRY CLEAR - ERROR 

{RETURN TSSR CONTENTS 

{RETURN 



ROUTINE TO CHECK WRITE LOCK CONDITION 
INPUT- 



R4 
R5 



ADDRESS OF COMMAND PACKET 
CURRENT UNIT NUMBER 



002514 
007204 



WLKCHK: : 
10$: 



40$ 



000004 000006 



MOV 

jSR 

BCS 

BR 

TST 

MOV 

MOV 

BIT 

3EQ 



R4,8TSDB(R5) 

PC.WAITF 

40$ 

60$ 

CR4)* 

CR4),R2 

CR2),R3 

«XO.WLK,i1S.XS0<R?) 

55$ 



ERRHRD l.UNIWLK 



{SEND OUT COMMANO 

{WAIT FOR SSR 

f BR, IF SSR IS SET ANO OK 

tBR IF TROUBLE CARRY - CLEAR 

{STEP IT 

{POINT TO WRT CHARA DATA PACKET 

{GET ADDRESS Of MESSAGE BUFFER 

jIS UNIT WHITE LOCKED? 

{NO, PROCEED WITH TESTING 

{TAPE IS WRITE LOCKED 



017200 





JSR 


PC.DROPU 




BR 


60$ 


55$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 









TRAP 


C$ERHRD 




.WORD 


1 




.WORD 


UNIWLK 




.WORD 





{DROP IT 






{EXIT WITH CARRY -0 






{SET CARRY NC TROUBLE 






{EXIT 






{CARRY CLEAR - ERROR 







RTS 



PC 



{RETURN 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND 

INPUT: 

R4 ADDRESS OF COMMAND PACKET 

R5 CURRENT UNIT NUMBER 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 

OUTPUT: 
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107* 
10 ,v 
1073 

1074 
1075 
1076 
10'i* 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
109.' 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1 110 
1111 
111? 
1113 
11.14 
111S 
1116 
1U7 
1118 

1119 

1120 
llc!i 
1122 



0074*6 
007436 
007442 
007446 
007450 
007452 
007452 
007454 
007456 
0O7460 
007464 



007466 
XT/466 
0OY4 ,'0 
0074 74 
007500 
^07502 
007502 
007506 
007510 
007514 



RO 
CARRY 



TSSR 

SFT 

CLR 



^ K.) 



CONTENTS 
WRITE CHARACTERISTICS COMMAND OK 
WRITE CHARACTERISTICS FAILED 



SEQ 0061 



IMPLICIT OUTPUT 



SIDE EFFECTS; 



010475 
004737 
103401 
000402 

000261 
000401 
000241 
017500 
000207 



002514 
007204 



002524 



WRTCHR: 


■ 




10$: 


MOV 


R4,S)TSDB(R5) 




JSR 


PC.WAITF 




BCS 


50$ 




BR 


60$ 


50$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 


MOV 


3TSSRCR5),R0 




RTS 


PC 



;SEND OUT COMMAND 

jWAIT FOR SSR 

jBR, IF SSR IS SET AND OK 

}BR IF TROUBLF CARRY - CLEAR 



{SET CARRY NO TROUBLE 

{EXIT 

j CARRY CLEAR 

{RETURN TSSR 

{RETURN 



- ERROR 
CONTENTS 



ROUTINE TO DO SET UP OF RUNNING CONDITIONS 
INPUTS; 

R5 CURRENT UNIT NUMBER 

OUTPUTS; 



CALLING SEQUENCE: 



1044,^ 
004737 
0C4 737 
.103416 

012727 
000000 
013727 
000000 



JSR 
JSR 
BCS 
ERRDF 

JSR 



MDSET: ; BREAK 



PC.FIRSTU 

PC.SOFINIT 

CONTINUE 

PC, MDSET 



{REPORT FATAL ERROR 



007766 
007356 



000001 
002116 



JSR 


PC, SETOFF 


JSR 


PC.WLKCHK 


8CS 


1$ 


DELAY 


1 



j DO A SUPVSR BREAK 


i'lRST. 






TRAP 


C$BRK 


{RESTORE DEFAULT 






{CHECK WHITE LOCK 






sC-1 IS O.K. 






{WAIT 








MOV 


■n.(pc)» 




.WORD 







MOV 


l.$DLY.tPC)* 




.WORD 






K5 
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SEO 0062 





007516 


005367 


1/7 772 










007522 


001375 












00 7524 


005367 


177756 










007530 


001367 










11?3 


007532 
007532 


104422 






BREAK 




n?4 


007534 
007534 


104444 






DOCl.N 




1125 


007536 


005737 


002312 1$: 


TST 


TS1MD 


1126 


007542 


001064 






bne 


10$ 


1127 


007544 


004737 


007 766 




J5R 


PC.SETDEF 


1128 


007550 


004737 


007270 




JSR 


PC.WRTCHK 


1129 


007554 


005737 


002320 




TST 


HSSW 


1130 


007560 


001415 






BEQ 


3$ 


1131 


007562 


052737 


000040 003532 




BIS 


OEF.HSS.TSUNT 


1132 


007570 


005737 


002322 




TST 


EXTFEA 


1133 


007574 


001002 






BNE 


2$ 


1134 


007576 


004737 


007724 




JSR 


PC.INVRT 


1135 


007602 


004737 


007766 2$: 


JSR 


PC.SETDEF 


1136 


007606 


004737 


007436 




JSR 


PC.WRTCHR 


1137 


007612 


000443 






BR 


11$ 


1138 


007614 


005737 


002316 3$: 


TST 


WTBUF 


1139 


00 7620 


001415 






BEQ 


5$ 


1140 


007622 


052737 


000030 003532 




BIS 


OCF.RUB.TSUNT 


1141 


007630 


005737 


002322 




TST 


EXTFEA 


1142 


007634 


001002 






BNE 


4$ 


1143 


007636 


004737 


007724 




JSR 


PC.INVRT 


1144 


007642 


004737 


007766 4$: 


JSR 


PC.SETDEF 


1145 


007646 


004737 


007436 




JSR 


PC.WRTCHR 


1146 


007652 


000423 






BR 


111 


114 7 


007654 


005737 


002314 5$; 


TST 


RDBUF 


114H 


007660 


001415 






BEQ 


10$ 


1149 


007662 


052737 


000020 003532 




BIS 


OEF.RBO.TSUNT 


1150 


007670 


005737 


002322 




TST 


EXTFEA 


1151 


007674 


001002 






BNE 


6$ 


1152 


007676 


004737 


007724 




JSR 


PC.INVRT 


1153 


007 702 


004737 


007766 6$: 


JSR 


PC.SETDEF 


1154 


00/706 


004737 


007436 




JSR 


PC.WRTCHR 


1155 


007712 


000403 






BR 


11$ 


1156 














1157 


007714 


013737 


003532 002504 ] 


10$: 


MOV 


TSUNT.SCHBIO10 


1158 














1159 


007722 


000207 


11$: 


RTS 


PC 


1160 














1161 














1162 














1163 








SUBROUTINE TO 


INVERT SENSE 


1164 














1165 








INPUTS 


. 




1166 














1167 














1168 














116o 








OUTPUTS: 




1170 














1171 














1172 














1173 


007724 




* 


[NVRT: : 







DEC 
BNE 
DEC 
BNF 

TRAP 

TRAP 



{BREAK TO SUPER 

; DO CLEAN AND ABORT 

{RUN IN DEFAULT MODE? 
YES .RE TURN 
RESTORE DEFAULT 
GO DO SWITCH CHECK 
DO WE RUN AT 100IPS? 
NO 

YES, SET THE BIT 
ARE WE SET? 
YES 

INVERT THE SWITCH 
NOW SET THE MODES 

jDO IT 



;RUN WITH WRITE BUFFERING? 

{NO 

jYES SET THE BITS 

{ARE WE SET? 

{YES 

•.INVERT THE SWITCH 

{NOW SET THE MODES 

{DO IT 

RUN WITH READ BUFFERING? 

NO 

YES SET THE BITS 
ARE WE SFT"> 
YES 

INVERT THE SWITCH 
NOW SET THE MODES 
{DO IT 



--6CPC) 
. -4 
~22(PC:> 

. -20 

CtBRK 
CSDCLN 



{AND IMIT 
{RETURN 



. ; 
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SFQ 006? 



1174 
1175 
1176 
1177 
1178 
1179 
1180 
1131 
1182 
1183 
1184 
118b 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 

1208 
1209 



1210 
1211 

1212 
1213 



1214 
1215 

1216 
1217 



1218 
1219 

1220 



007724 
0C7732 
007740 
007746 
007 754 
007 760 
007 764 



007 766 
007 766 
007772 
00V 7 76 
010004 
010012 
010020 
010026 
010032 



010034 
010034 
010034 
010040 
010040 
010040 

010042 
010042 
010042 
01OO46 
010046 
010046 

010050 
010050 
010050 
010054 
010054 
010054 

010056 
010056 
010056 



012737 
012737 
012737 
012737 
012704 
004737 
000207 



140006 

002506 
000006 
100010 
002330 
007436 



002330 
002332 
002336 
002506 



012701 
010137 
012737 
012737 
012737 
013737 
012704 
000207 



MOV 4WSM , CMDPK T ♦ CP . CMD 

MOV ftUSMBK , CMDPKT >CP . ADL 

MOV 46, CMDPKT ♦CP.CNT 

MOV 4100010 .WSMBK 

MOV 4CMDPK T ,R4 

JSR PC.WRTCHR 

RTS PC 



}URT SUO-SrS MEM 
iMSG DUf" ADDR 
;BYTF COUNT 
; INVERT THE SWITCH 

;D0 IT 
5 RETURN 



SUBROUTINE TO SETUP DEFAULT SET CHAR CMD 
INPUTS: 



OUTPUTS: 



R4 



ADDRESS OF COMMAND PACKET 



140004 
002330 
0024 74 
000012 
000040 
003532 
002330 



SETDEF:; 



002332 
002336 
002502 
002504 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



0SCH.R1 

R1.CM0PKUCP.CMD 
4SCHBK , CMDPK T ♦ CP . ADL 

*SCHCNT , CMDPK T«-CP.CNT 

4DFTSCH,SCHeK»6 

TSUNT.SCHBKOO 

4CMDPKT.R4 

PC 



j WRITE CHAR CMD 
{SET UP COMMAND 

SET UP ADR LO TO POINT TO MSG BUF(MSoPKO) 

SET BUFFER EXTENT 

STORE CHARACTERISTIC CODE IN SCH BLOCK. 

UNIT 4 
; ADDRESS OF CMD PACKET 
;RETURN 



MODULES TO HANDLE TS05 INTERRUPTS. 



005237 003472 
000002 

005237 003474 
000002 

005237 003476 
000002 

005237 003500 



TS5IN0:: 



L 10004: 



BGNSRV TS5IN0 

INC INTFLG 

ENDSRV 



j SET INTERRUPT OCCURRED FLAG 

RTI 



TS5IN1:: 



L 10005: 



BGNSRV TS5IN1 

INC INTFLG*2 

ENDSRV 



{SET INTERRUPT OCCURRED FLAG. 



RTI 



TS5IN2: : 



L 10006: 



BGNSRV T55IN2 

INC INTFl.G+4 

ENDSRV 



j SET INTERRUPT OCCURRED FLAG. 



RTI 



TS5IN3: j 



BGNSRV TS51N3 



INC 



INTFLG»6 



iSET INTERRUPT OCCURRED FLAG. 



MS 
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SEQ 0064 



12c 1 



1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251. 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
12 74 
1275 



010062 
010062 
010062 



010064 
010072 
010074 
310100 
010104 
010110 
010112 
010114 
010116 
010122 
010124 
010126 
010132 
010134 

010136 
010136 
010140 
010144 
010146 
010150 
010150 
010152 
010152 
010154 
010154 

010160 
010160 



010162 
010162 
010166 
010172 
010176 
010202 
010204 



000002 



032737 
001430 
013702 
063702 
032702 
001417 
005202 
111203 
142703 
000303 
005302 
105737 
001401 
005302 



111204 
142704 
050403 
000401 

011203 

000402 

017703 

000207 



012701 
012721 
012721 
012721 
005721 
000207 



ENDSRV 



L10007 



RTI 



SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 

PRINTS. 

INPUTS: 

OUTPUTS! R3 - RECORD COUNT READ 

REGISTERS: R2. R3, R4 

CALLS; 



000400 003420 RECTAP 

002360 
003410 
000001 



177400 
003520 



177400 



173230 



50003$ 

50002$ 
50004$ 
50001$ 

50005$ 



003540 
140004 
000040 
000001 



SETCH; 



BIT 

BEQ 

MOV 

ADO 

BIT 

BEQ 

INC 

MOVB 

BICB 

SUAB 

DEC 

TSTB 

BEQ 

DEC 



MOVB 
BICB 
BIS 
BR 

MOV 

BR 

MOV 

RTS 



OMOD.CO.CitDWRD 

50001$ 

MSGPKTfMS.RFC,R2 

PATARD.R2 

3BIT00.R2 

50002$ 

R2 

(R2) t R3 

0177400. R3 

R3 

R2 

SWBFLG 

50003$ 

R2 



{ Re AD REV FETCH 

{FIND LAST READ AD, 

{ODD AD. , REASSEMBLE 

jREC COUNT STARTING 
{WITH UPPER BYTE FETCH 



{LET R2 :- R2 - 01 
{IFB SWBFLG NE 00 THEN 



{LET R2 :* R2 - 01 



{LOWER BYTE AD. 

{LOWER BYTE AD. ON SWAP 



(R2),R4 
0177400, R4 
P4.R3 
50004$ 

CR2),R3 

50005$ 

80ATARD.R3 

PC 



{FETCH LOWER BYTE 



{LET R3 :* (R2) 



{EVEN AD, FETCH 



{LET R3 :» ODATARD 



{READ FWD FETCH 



SUBROUTINE TO STORE A SF T CHARACTERISTIC COMMAND AS 

THE FIRST ENTRY IN THE SEQUENCE TABLE. 

INPUTS; 

OUTPUTS: 

REGISTERS; 

CALLS: 



MOV 




OCMDSEQ.Rl 


MOV 




#SCH,(Rn* 


MOV 




ODFTSCH.(Rl)* 


MOV 




01. CRD* 


TST 




CRD* 


RTS 


PC 





iINIT CMD SEQUENCE TABLE POINTER. 

{THIS CODE SETS UP A SET CHARACTERISTIC 

COMMAND AS THE FIRST COMMAND IN THE 

SEQUENCE TABLE. 

SKIP PATTERN LOCATION. 



SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 



N5 
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1276 

127/ 

1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 

is 1 *;-* 

1293 
1294 
1295 
1296 
1297 
1298 
1299 

1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
132? 
1323 
1329 
1330 
1331 



010206 
010212 
010216 
010222 
010224 



010226 
010232 
010232 
010236 
010240 
010244 
010244 
010246 
010254 
010256 
010262 
010266 
010270 
010276 
010300 
010304 
010306 
010314 
010322 
010330 
010336 
010344 
010346 

010354 
010354 

010362 

010362 

010362 
010362 
010366 
010372 
010376 

010402 
010402 



012721 
012721 

012721 

005721 
000207 



012701 

021127 
001530 
004737 

104422 
023737 
002116 
004737 
105737 
001435 
023727 
001031 
105737 
001026 
063737 
063737 
013737 
043737 
023727 
002003 
012737 



004737 
004 737 
012702 
004737 



102010 
000001 
000001 



011064 
003515 

003420 

003516 

003434 
003432 
003434 
003430 
003416 



010524 
017500 

000001 
017102 



SETRW 



003540 
177777 
011172 

003412 003414 



104005 



003432 
003434 
003416 
003416 
000022 



000022 003416 



013737 003416 002336 



50015$ 

50014$ 
50013$ 
50012$ 



INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 

MOV ORWD , ( R 1 ) + 

MOV #1,(RD* 

MOV 01, (Rl)* 

TST (Hl)» 

RTS PC 



CMD * REWIND. 

BRF. 

Or OPERATIONS. 
jSKIP PATTERN, 
j RE TURN 



SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEUUENCE TABLE ON ALL 

DEVICES. 

INPUTS: 

OUTPUTS: R2 * TERMINATION INDICATOR (0*END OF TABLE, 1*E0T) 

REGISTERS: 

CMDAC , SETUP , EXSUB , CKHAE , NEXTU, FIRSTU, VFYDAT . 

INIT SEQUENCE TABLE POINTER. 

UHILE THERE ARE CMOS IN THE SEQUENCE TABLE. 

GO SETUP THE COMMAND BLOCK. 
DO A SUPVSR BREAK FIRST. 

TR/P C$BRK 
WHILE THERE ARE RECORDS REMAINING: 

STORE CMO ASCII IN ERROR MESSAGE. 
IF IN RANOOM MODE: 

IF CMD IS A WRITE THEN: 

IF DATA IS NOT TO BE VERIFIED THEN: 

jLET RANB :- RANB ♦ RANS [GENERATE 
LET RANS :- RANS ♦ RANB s RANDOM 
LET BRFCNT :- RANS jl FNGTH 
MASK RANOOM LENGTH. 

}D0 NOT ALLOW BYTE COUNT OF LESS THAN 18 



; CALLS: 


CMDAC 


EXALL:: MOV 


0CMDSEQ.R1 


50006$: 




CMP 


(Rl).OEND 


BEQ 


50007$ 


JSR 


PC, SETUP 


50010$: BREAK 




CMP 


NCNT.NCMT1 


BGE 


50011$ 


JSR 


PC ♦ CMDAC 


TSTB 


RANOOM 


BEQ 


50012$ 


CMP 


CMOWRD.OWRT 


BNE 


50013$ 


TSTB 


VFYFLG 


BNE 


50014$ 


ADD 


RANS. RANB 


ADD 


RANB, RANS 


MOV 


RANS, BRFCNT 


BIC 


LENMSK, BRFCNT 


CMP 


BRFCNT, 018. 


BGE 


50015$ 


MOV 


018. .BRFCNT 



: CHANGE COUNT OF 0-17 TO 18, 



MOV 



BRFCNT ,CMDPKT*CP.CNT 



{MOVE BRF 10 CMD PACKET, 



026527 002604 177777 



50016$ 



JSR 
JSR 
MOV 
JSR 



CMP 



PC.FXSUB 
PC, CKHAE 
01, R2 
PC, FIRSTU 



DEVTBL(R5),0END 



j ISSUE CMD TO ALL, AWAIT INTS, CHECK STATUS 
I CHECK HALT AFTER EACH CMD FLAG. 
jLET R2 :» 01 S SET ALL UNITS AT BOT/EOT 

;FIND FIRST UNIT. 



{WHILE THERE ARE MORE UNITS: 



\\t. 
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jEQ 0066 



1552 
1533 

1554 
1555 
1356 
135 7 
1356 
1559 
1540 
1541 
154? 
1543 
1544 
1545 
1546 
1 54 7 
1548 
1549 
1550 
1351 
1552 
1555 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
156? 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
157? 
1575 
1574 
13 75 
1576 
13/7 
13/8 
15 79 
1380 
1581 
1582 
1585 
1384 
1585 
1586 
1587 

i3ee 



010410 
01041? 
C10420 
01042? 
010450 
0104 52 

0104 54 
0104 54 
010456 
0104 56 
010444 
010446 
010454 
010456 



010460 

010460 
010460 
010464 
010466 
010466 
010472 
010474 

010476 
010476 
010502 

010510 
010512 
010512 



010516 
010520 
010520 
010522 



010524 
010550 
010550 
010556 
010540 
010546 



001426 
052737 
001406 
032765 
0010C1 
005002 



000411 

052765 
001404 
052737 
001001 



010456 005002 



004737 
000746 

020227 
001001 
000412 



005237 
015757 

000655 

004737 

000645 

005002 
000207 



004737 

026527 
001465 
03^737 

0Q1421 



000400 
000002 



00000 i 
000001 



017150 
000001 



005412 
005420 



016066 



01710? 
002604 

000400 



003420 
003502 



003502 
005420 



005424 



17 7 7 7/ 

005420 



500211: 
500201$ 

50025$: 

50024$: 
500221: 

50017$: 
50025$: 
5001 II j 



EHQ 

BP 

BFQ 

BIT 

bnf 

CI R 



BR 

BIT 
BEQ 
BIT 
BNE 



CLR 



JSR 
BR 

CMP 
BNE 
BR 



INC 
MOV 

BR 

JSR 



BR 
50007$: 

CLP 

EXARTN: RTS PC 



^001 7$ 

OMOO.CO.CMDWRD 

50020$ 

0X0.B0T.E0Tn.GfR5) 

50021$ 

R2 



»If CMO T. RF VERSE ThEN: 
j IF NOT AT HOT THEN: 
|l I T Rr- .- 00 jCtt'AR FOr/BOf MAS. 



50022$ 

OXO.f ur.fOTH G(R5) 
50023$ 

OtMO.CO.CMOWRD 
50024$ 



I ELSE I* CMU 15 NOT REVERSE 



R2 



PC.NEXTU 
50016$ 

R2.01 
50025$ 

EXARTN 



NCNT 



CMCH*D,PCMOWD 

50010$ 

PC.VfYDAT 

50006$ 



ll> NOT AT FOT OR NOT A MOTION CMO THEN: 
jCLEAR EOT/BOT FLAG. 



I FIND NEXT UNIT 

l IF ALL UNIT ARE AT EOT/BOT THEN 
■RETURN WITH R2 ■ 01. 



tLET NCNT :* NCNT . 01 jUPDATE RECORO COUNT. 

{SAVE PREVIOUS COMMAND WORD. 



I IF LAST CMO WAS A WRITE VERIFY. THEN GO 
IVERIFY THE LAST N RECORDS OF DATA, 



R2 iLET R2 :• 00 iSET NORMAL RETURN INDICATOR. 

iRETURN, 



SUBROUTINE TO ISSUE COMMANO TO ALL DEVICES* WAIT FOR 

ALL INTERRUPTS. AND CHECK ALL STATUS. 

INTUTSi 

OUTPUTS: 

REGISTERS: 

CALLS: EXCUTE,GOWAXT t NEXTU,FIRSTU. 



EXSUBj : JSR 
5QQ26I; 

CMP 

be a 

BIT 
BEU 



PC.FIRSTU 

DEVTBL(R5),0EN0 
5002 7$ 

OMOO.CO.CMDWRD 
50030$ 



jSET UP FOR FIRST UNIT, 
jWHILE THERE ARE MORE DEVICES: 
I IF* CMO IS REVERSE THEN; 



i * , 
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HIT 

BNE 

BIT 

Bt j 

1'iTB 

Bf-Q 

JSR 



,M 



1389 010550 


032 765 


OOOOOr" 


OOViO.* 


1390 010556 


001014 






1391 010560 


032765 


000001 


003502 


139c 5 010566 


001406 






1393 010570 


105737 


005524 




1394 010574 


001402 






1395 010576 


004737 


012054 




15*56 








1397 010602 








1398 01O602 


000402 






1399 010604 








1400 010604 


004737 


012054 




1401 








1402 010610 








1403 








1404 010610 








1405 010610 


00C435 






1406 010612 








1407 010612 


023727 


003426 


0OOO02 


1408 010620 


001011 






1409 010622 


032765 


000002 


003502 


1410 010630 


001405 






1411 








1412 010632 


016537 


002616 


003512 


1413 010640 


005077 


172646 




1414 








1415 010644 








1416 010644 


032765 


000001 


003502 


1417 010*52 


001404 






1418 010654 


032737 


000001 


005420 


1419 010662 


001003 






1420 010664 








1421 








1422 010664 


004737 


012054 




1423 








1424 010670 


000405 






1425 010672 








?426 010672 


105737 


003524 




1427 010676 


001402 






1428 010700 


004737 


012054 




1429 








1450 010704 








1431 








1432 010704 








1433 








1434 010704 








1435 010704 


004737 


017150 




1436 








1437 010710 


0O0707 






1438 010712 








1439 010712 


105737 


005517 




1440 010716 


001403 






1441 010720 


105037 


003517 




1442 010724 








010724 


104424 






1443 010726 








1444 010726 


004737 


017102 





50033$: 
50032$: 

50034$ 
500311 
5C030I 



50036$: 

50037$: 

50040$: 

50042$ 
50041$ 
50035$ 

50027$ j 



BR 
JSR 

BR 

CMP 
BNE 
BIT 
BEQ 

MOV 
CLR 



BIT 
BEQ 

BIT 
BNE 



JSR 

BR 

TSTB 

BEQ 

JSR 



'jf-'j 0067 



OXO.BOT.FOTF'LGf W 1 ,) 

50031$ 

0XO.EOT,fcOTFl.G(R5) 

50032$ 

AlLfr'OT 

50033$ 

PC.FXCUTE jUlLN EXECUTE REV LMU 

jl» NOT ALL AT EOT, FREF/F. UNITfS) AT K)T 



j If NOT AT DOT 
jOUT U AT POT 
j AND All OTHERS AT K) T 



PC.EXCUTE 



50035$ 



j IF NOT AT BOT AND 

I NOT AT EOT , EXEC REV CMO 

jELSE IF CMO IS NOT REVERSE: 



CMDLG,02 

50036$ 

#X0.B0T,E0TFLGCR5) 

50036$ 

jCLEAR P SPOT COL*iTS WHEN WRITING FROM BOT 
BTAD0R(R5),BTPT -LET 6TPT :• BTA0DRCR5) 

QBTPT ( ! gr aHfPT :- 00 



0X0.EUT.E0TFLGCR5) 
50037$ 

♦CHD.CO.CMOWRD 
50040$ 



PC.EXCUTE 

50041$ 

ALLEOT 
50042$ 
PC.EXCUTE 



jlf* NOT AT EOT OR NOT A MOTION CMO THEN: 
j ISSUE CMO TO TS05 



jIFB ALLEOT NE 00 THEN 



50043$: 



JSR 


PC.NEXTU 


BR 


50026$ 


TSTB 
BEQ 
CLRB 
OORPT 


RPTFLG 
50043$ 
HPTFLG 


JSR 


PC.F1RSTU 



jFINO next unit IN TEST CYCLE. 



,IF REPORT HAS BEEN REQUESTED THEN: 



iCLR THE FLAG, 
jPRINV THE PERFORMANCE REPORT. 



j SET UP FOR FIRST UNIT, 



TRAP 



C*QRPT 



i», 
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;>'» 



SFQ OOOft 



1445 

1446 

144 7 

14**8 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

145b 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1463 

1469 

1470 

1471 

1472 

1473 

14 74 

1475 

1476 

14 77 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

149.3 

14<*4 

1495 

1496 

1497 

1498 

1499 

1500 

1501 



010 732 

010/32 
010740 
010742 
010750 
01C7S2 
01G 7 60 
010762 
010770 

0107V 

010776 
011000 

011004 

011004 
011006 
011006 

011012 



011012 
011012 
011014 
011014 
011022 
011024 
011032 
011034 

011034 

011040 
011042 
011042 
011046 
011050 

011054 

011054 

0." 1054 
011054 

011060 
011062 
011062 



02652 7 

001450 
032737 
001421 
032765 
001014 
032765 
001406 
105737 
001402 
004737 



0OO402 
004737 



000420 

032765 
001404 
032737 

001003 



004737 

000405 

105737 
001402 
004737 



004737 
000/24 
000207 



002604 
000400 
000002 
OOOOOl 
003524 
012364 



012364 



OOOOOl 
OOOOOl 

012364 

003524 
012364 



017150 



003420 
003502 
003502 



003502 
003420 



50044 i 



50051$ 

50050 * 

50052$ 

5004 7$ 
50046 t 

50054$ 

50055$ 

500f7$ 
50056$ 
50053$ 

50045$ 



CMP 

BEQ 

BIT 

BEQ 

BIT 

BNE 

BIT 

BEQ 

TSTB 

BEQ 

JSR 



BR 
JSR 



BR 

BIT 
BEQ 
BIT 
BNE 



JSR 

BR 

TSTB 

BEQ 

JSR 



JSR 

BR 

RTS 



DFVTBL(R5),0END 

50045$ 

CMOD.CO.CMDWRD 

50046$ 

*XO.BOT,FOTH r,r R5*> 

5004 7 $ 

OXO.E0T.ECTFLGCR5) 

50050$ 

ML I EOT 

50051$ 

PC.GOWAIT 



50052$ 
PC.GOWAIT 



{WHILE THERE ARE MORE DEVICES* 

f If" CMD IS REVERSE THEN; 

, IF NOT AT BUT 

I BUT IF AT EOT 

{AND ALL OTHERS AT EOT 

{THEN WAIT FOR CMO END 

{IF NOT ALL AT EOT, DO NOT WAIT 

;NOT AT BOT, ANO NOT AT EOT 
{WAIT FOR INT, CHECK STAT 



50053$ 

•X0,E0T t ».:0TFiG(R5) 
50054$ 

♦CMD.CO.CMOURD 
50055$ 



{ELSE IF CMO IS FORWARD: 



PC.GOWAIT 

50056$ 

ALLEOT 
50057$ 
PC.GOWAIT 



{IF NOT AT EOT OR NOT A MOTION CMO THEN: 
{WAIT FOR INT. CHECK STATUS. 



jIFB ALLEOT NE 00 THEN 



PC.NEXTU 

50044$ 

PC 



{FIND NEXT INIT IN TEST CYCLE. 



{RETURN. 



THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 

COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMOWRO 

CONTAINS CURRENT CMO ANO LOCATION PCMDWO CONTAINS PREVIOUS CMD. 

INPUTS: 

OUTPUTS: 

REGISTERS; R3. R4 . 

CALLS: GCMDA 



["■'. 
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SEQ 0069 



150? 
1503 
1504 
1505 
1506 
150? 
1506 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1536 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1S«6 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 



011064 
011070 
011074 
011100 
011104 
011110 
011114 
011120 
011124 
011130 
011134 



011136 
011140 
011140 
011144 
011146 
011152 
011154 
011154 
011156 
011160 
011162 
011164 
011170 



011172 
011176 
011202 
011206 
011212 
011216 
011222 
011224 
011230 
01123? 
011236 
011240 
011246 
011250 



013704 
004737 
112337 
112337 
111337 
013704 
004737 
112337 
112337 
111337 
000207 



005003 

026304 
001403 
062703 
000772 

010304 
0O6203 
000240 
060403 
062703 
000207 



005037 
012137 
011137 
011137 
013702 
042702 
010203 
1o2703 
001003 
011157 
000464 
023727 
001003 
012737 



003420 
011136 
006440 
006441 
006442 
003424 
011136 
006554 
006555 
006556 



CMDAC: 



003752 
000002 



004040 



003426 
002330 
002336 
003416 
002330 
177740 

OOOOIO 

002332 

002330 

000002 



SETUP: 



100011 
003426 



2% 



MOV 


CM0WRD,R4,LET R 


JSR 


PC.GCMOA 


MOVB 


(R3)*,STAER1*2 


MOVB 


(R3)*,STAER1*3 


MOVB 


(R3),STAER1»4 


MOV 


PCMDW0.R4 


JSR 


PC.GCMOA 


MOVB 


CR3)*.STAER7»24 


MOVB 


CR3)^STAER7»25 


MOVB 


(R3) t STAER7*26 


RTS 


PC 



CMDWRD {R4 

;GfcT CMQ ASCII. 
{MOVE CMO ASCII 



CMO BINARY. 



j INTO MSG. 

;R4 • PREVIOUS CMD BINARf, 
;GET CMO ASCII. 

jMOVE CMO ASCII 

;INTO MSG. 
jRETURN. GO EXECUTE NEXT FUNCTION. 



SUBROUTINE TO FINO THE ASCII EQUIVILENT OF THE COMMAND IN R4 . 

ADDRESS OF ASCII 1ST WORD IS RETURNEO IN R3. 

INPUTS: R4 - PRESENT COMMANO WORD. 

OUTPUTS: R3 ■ ADDRESS OF PRESENT COMMANO ASCII. 

REGISTERS: 



jINIT CMO TBL POINTER. 
tUNTIL ClHRENT CMO IS FOUND: 
R3 ♦ OB ; SEARCH CMD TABLE. 





CALLS: 






GCMOA:: 


CLR 


R3;LET 


R3 : - 00 


50060$: 










CMP 


CMDTBLCR3) t R4 




BEQ 


50061$ 






ADO 


♦2.R3 


llST R3 




B3 


50060C 




50061$: 










f'GV 


.«,P'l 


jLFT R4 : 




A^R 


HZ 






N'JP 








ADD 


R4.R3 






ADO 


♦CMQASC 


,R3 




RTS 


PC 





R3 



{POINT TO ASCII FOR THAT COMMAND 



;RETURN. 



THIS SUBROUTINE LOADS THE TS05 COMMAND PACKET FROM ONE 

ENTRY IN THE SEQUENCE TA'JLE. 

INPUTS: 



OUTPUTS 


; 


REGISTERS: R2. R3. 


CALLS: 


GENPAT. 


CLR 


CMOLG 


MOV 


CR1)* # CM0PKT 


MOV 


(R1).CM0PKT»CP,CNT 


MOv 


CRD.BRFCNT 


MOV 


CMDPKT.R2 


BIC 


0NCH0.C.R2 


MOV 


R2,R3 


SUB 


*CMO.C3,H3 


BNE 


21 


MOV 


(Ri),CMDPKT*2 


BR 


It 


CMP 


CMDPKT.OWTM 


BNE 


50062$ 


MOV 


02.CMDLG 



jCLR CMO LOGGING COOECDISABLES LOGGING) 

j LOAD THE CO^ANO WORD. 

jLOAD THE BYTE/RECORO/FILE COLNT. 

j SAVE BRF FOR THIS COWANO. 

jGET CMO. 

»Cl.R ALL BUT CMO BITS. 

j SAVE IT TUICE. 

jPOSITION COMMANO? 

:BR IF NOT. 

jMOVE 8PCR IN 2N0 PKT WORD FOR POSITION CMO 

I IF CMD IS A WRITE TAPE MARK THEN: 

;WTM LOGGING CODE IS 2. 



r>, 
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GLOBAL SUBROUTINES SECTION 



SEQ 0070 



1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1.571 
1572 
1573 
1574 
1575 
1576 
1577 
157R 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
15% 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 



011256 
011256 
011260 
011264 
011266 
011274 
011302 
011304 

011312 
011314 
011314 

011322 
011322 
011324 
011326 
011332 
011374 
011542 
011350 
011354 
011362 
011364 
011366 
011372 
011374 
011402 
011410 
011412 
011416 
011422 
011426 
011430 
OH434 
011436 
011444 
011450 
011456 
011464 
011466 
011474 

011502 
0115O4 
0115O4 

011510 

011510 
OH516 
011524 

011530 
011532 

011540 
011540 
011546 



010203 
162703 
0O1017 
013737 
032737 
001404 
012737 

000403 

012737 



000432 
010203 
162703 
001014 
012737 
012737 
011137 
013737 
000412 
010203 
162703 
001006 
012737 
012737 
005721 
012137 
005037 
012137 
010203 
162703 
001010 
013737 
004737 
012737 
032737 
001407 
112737 
042737 

000402 

105037 



013737 
013737 
105737 
001403 
052737 



042737 
013737 



000001 

003410 
000400 



000004 

0024 74 
000012 
002502 
003532 



000OO6 

000020 
003406 

003414 
003412 

003446 

000OO5 

003406 
011556 
000002 
000100 

000001 

000100 



003516 



003420 
002330 
003520 



002332 
002330 



000004 003426 



000006 003426 



002332 
002336 

002504 



002336 
002332 



002332 

003426 
002330 

003516 
002330 



003424 
003420 



010000 002330 



50062 $ 



50063$: 



50064$: 



Ui 



4*: 



3$: 



5$: 



50065$ 



50066$ 



004000 
(^2330 



002330 
003422 



50067$ 



MOV R2,R3 

SUB $CMO.C0,R3 

BNE 1$ 

MOV DATARD , CMDPK T ♦ CP . ADL 

BIT $M00. CO, CMOPKT 

BEQ 50063$ 

MOV 04.CMDLG 

BR 50064 $ 

MOV 06 , CMOLG 



BR 3$ 

MOV R2.R3 

SUB OCM0.C2.R3 

BNE 4$ 

MOV 0SCH8K , CMDPK T ♦ CP . ADL 

MOV OSCHCNT . CMOPK T ♦ CP . CNT 

MOV (R1),SCHBK»6 

MOV TSUNT,SCH8K*10 

BR 3$ 

MOV R2.R3 

SUB ♦CMO.Cl!CMO,C2.R3 

BNE 3$ 

MOV *OIACNT , CMOPK T *CP . CNT 

MOV *0IA8LK , CMOPKT * CP . ADL 

TST (Rl)f 

NOV (Rl)*.NCNTl 

CLR NCNT 

MOV <R1)*,PATERN 

MOV R2.R3 

SUB *CMO.C0!CMO.C2,R3 

BNE 5$ 

MOV DATAWT, CMOPKT *CP. ADL 

JSR PC.GENPAT 

MOV *2, CMOLG 

BIT OVFY.C, CMOPKT 

BEQ 500651 

MOVB Ol.VFYFLG 

BIC OVFY.C.CMDPKT 

BR 50066 $ 

CLRB VFYFLG 



MOV CMOWRD.PCMOWO 

MOV CMOPK T.CMDWRD 

TSTB SWBFLG 

BEQ 50067$ 

BIS 0SWB.C.CMDPKT 



BIC OBRF.C, CMDPK T 

MOV CMOPKT, CMOSAV 



{IS IT A READ? 

j BR IF NOT. 

j IF SO, LOAD THE BUFFER ADDR 

j IF CMD IS A RFAD REV THEN: 

I LOGGING CODE IS 4. 

;ELSE - IF CMD IS A READ FWD 



; LOGGING CODE IS 6 



» CONTINUE. 

{IS IT 

tA SET CHARACTERISTICS CMD? 

jBR IF NOT. 

iSEl UP AOR LO FOR SET CHAR. 

»SET BUFFER EXTENT 

j STORE CHARACTERISTIC CODE IN SCH BLOCK. 

;UNIT ♦ 

{CONTINUE. 

jIS IT 

;A DIAGNOSTIC CDIA) CMD? 

jBR IF NOT. 

{LOAD BUFFER EXTENT. 

{LOAD BUFFER ADR LOW. 

{POINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS 

;SAVE NUMBER OF OPERATIONS 

{CLEAR OPERATION COUNTER. 

;SAVE PATTERN CODE FOR CURRENT CMO. 

ilS IT 

{A WRITE? 

{BR IF NOT. 

;LOAD WRITE BUFFER LO ORDER. 

{GO GENERATE THE WRITE PATTERN. 

;WRITE LOGGING COOE IS 2. 

j IF DATA VERIFICATION 15 REQUIRED: 

jSET VERIFY FLAG. 

{CLEAR VERIFY BITCNOT USED BY HARDWARE). 

j IF DATA VERIFICATION IS NOT REQUIRED: 



jCLR VERIFY FLAG. 



{SAVE PREVIOUS CMO WORD. 
,SAVE PRESENT CMO WORD. 
{IF SWAP BYTES IS ENABLED 

{SET SWAP BIT IN COMMAND. 



{CLR BRF BIT (INTERNAL ONL*). 
{SAVE 1ST WORD OF COMMAND PACKET. 



Gt. 



.) 
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SFQ 00/1 



1616 
161/ 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1626 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1S40 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 



011554 000207 



011556 
011562 
011564 
011570 
011572 
011576 
011602 
011606 
011612 
011616 



011620 
011622 
011624 
011626 
011630 
011632 
011634 
011636 
011640 



011642 
011646 
011652 
011654 
011656 
011662 
011066 
011670 

011674 
011674 

011676 



011700 
011704 
011710 
011712 
011714 



013703 
006303 
0137C4 
005204 
042704 
162704 
013702 
062702 
004773 
000207 



011642 
011700 
011720 
011730 
011754 
011766 
012000 
012020 
012052 



012703 
162704 
100411 
010322 
062703 
020327 
001002 
012703 



000764 
000207 



012703 
162704 
100402 
010322 
000773 



RTS 



PC 



j RE TURN. 



THIS bUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 
INPUTS: 
AJTPUTS: 

REGISTERS: R2, R3, R4 . 
CALLS: PATRO - PATR7 



003446 

003416 

000001 
000002 
003406 
000002 
011620 



GENPAT 



PATTBL 



000400 
0O0O02 



001002 
001000 

00O400 



PATRO: 
1*: 



177777 
000002 



50070$ 



2$: 



PATR1; 
ZROPAT 



MOV PATERN.R3 

ASL R3 

MOV BRFCNT.R4 

INC R4 

BIC 01, R4 

SUB 02. R4 

MOV DATAWT.R2 

ADD 02. R2 

JSR PCSPATTBLCR3) {GO GENERATE THE APPROPRIATE PATTERN 

RTS PC {RETURN TO SETUP SUBROUTINE. 



j SETUP PATTERN ROUTINE POINTER 

j SET LENGTH OF WRITE BFR 

{ROUNDED UP TO NEXT WORD 
jWITH FIRST WORD RESERVED 
jFOR RECORD COUNT 



;TS05 WRITE PATTERN LOOKUP TAB^.. USED TO JSR TO THE 
{CORRECT DATA PATTERN GENERATING ROUTINE. 

PATRO 
PATR1 
PATR2 
PATP3 
PATR4 
PATR5 
PATR6 
PATR7 
PATR8 

{INCREMENTING PATTERN. 0-377. 



MOV O400,R3 } LET R3 

SUB 02,R4jLET R4 :> 

BMI 21 

MOV R3,(R2)» 

ADD 01002, R3 

CMP R3, 01000 

BNE 50070$ 

MOV 0400 ,R3 



BR 1$ 

RTS PC 
{ALL ONE'S PATTERN. 

MOV 0-1. R3 

SLE 02, R4 

BMI II 

MOV R3.CR2)* 

BR ZROPAT 



• 0400 

R4 - ^? j DECREMENT WORD COUNT. 

j BR IF DONE. 

{STORE DATA WORD. 

{UPDATE PATTERN. 

{IF PATTERN HAS WRAPPED AROUND THEN 

{INIT THE PATTERN AGAIN. 



{DO IT AGAIN. 
{RETURN. 



{ALL ONES PATTERN: . 

{DECREMENT BYTE COUNT. 

{DONE?, BR IF YES. 

I IF NOT LOAD NEXT BYTE WITH PATTERN 

{00 IT AGAIN. 
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M J 



SEQ 0072 



1673 
1674 
1675 


011716 


000207 




1*: 


RTS 


PC 


{RETURN. 










{ALL 


ZEROES PATTERN, 




1676 
















1677 


011720 


005003 




PATR2: • 


CLR 


R3 


jCLR PATTERN REGISTER. 


1678 


011722 


004737 


011704 




JSR 


PC.ZROPAT 


{GO GENERATE IT. 


16"9 

1680 
1681 


011726 


000207 






RTS 


PC 


i RE TURN. 










5 ONE 


BIT WALKING FROM 


R TO L IN A FIELD OF ZEROES. 


1682 
















1683 


011730 


012703 


000401 


PATR3: : 


MOV 


0401, R3 


;INIT PATTERN REGISTER. 


1684 


011734 


162704 


000002 


WLK2R0: 


sue 


02,R4 ; LET R4 : 


■ R4 - 02 {DECREMENT WORD COUNT 


1685 


011740 


100404 






BMI 


1* 


jBR IF DONE. 


1686 


011742 


010322 






MOV 


R3.CR2)* 


{LOAD DATA. 


1687 


011744 


006303 






ASL 


R3 


{SHIFT PATTERN. 


1688 


011746 


005503 






ADC 


R3 


{ADD CARRY BACK INTO PATTERN. 


1689 


011750 


OOC771 






BR 


WLKZRO 


{DO IT AGAIN. 


1690 


011752 


000207 




1$: 


RTS 


PC 


{RETURN. 


1691 
















1692 










{ZERO BIT WALKING FROM R TO L IN A FIELD OF l'S. 


1693 
















1694 


011754 


012703 


177376 


PATR4: : 


MOV 


0177376, R3 


ilNIT PATTERN REGISTER. 


1695 


011760 


004737 


011734 




JSR 


PC, WLKZRO 


{GO GENERATE {IT. 


1696 


011764 


000207 






RTS 


PC 


{RETURN. 


1697 
















1698 










{ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 


1699 










{COMPLEMENTED. 




1700 
















1701 


011766 


012703 


IP ilr_»5 


PATR5: } 


MOV 


0125125, R3 


jINIT PATTERN REGISTER. 


1702 


011772 


004737 


011704 




JSR 


PC.ZROPAT 


{GO GENERATE IT. 


1703 


011776 


000207 






RTS 


PC 


{RETURN. 


1704 
















1705 
1706 

1707 










-.ALTERNATING BYTES OF 


000 ANO 377. 


012000 


012703 


177400 


PATR6: ; 


MOV 


0177400, R3 


{INIT PATTERN REGISTER. 


1708 


012004 


162704 


000002 


1$: 


sue 


02, R4 


{DECREMENT WORD COUNT. 


1709 


012010 


100402 






BMI 


2% 


; BR IF DONE, 


1710 


012012 


010322 






MOV 


R3,(R2)f 


{LOAD DATA. 


1711 


012014 


000773 






BR 


15 


jDO IT AGAIN. 


1712 
1713 
1714 
1715 
1716 


012016 


000207 




2$: 


RTS 


PC 


{RETURN. 










{RANDOM PATTERN GENERATOR 


012020 


162704 


000002 


PATR7u 


sue 


02, R4 


{DECREMENT WORD COUNT 


1717 


012024 


10O411 






BMI 


GIT 


jBR IF DONE. 


1718 


012026 


063737 


003434 003432 


ADD 


RANS.RAN8 




171.9 


012034 


063737 


003432 003434 


ADD 


RANB.RANS 


{GET NEW 0. 


1720 


012042 


013722 


003434 




MOV 


RANS,(R2)f 


{SAVE 0. 


1721 


012046 


000764 






BR 


PATR7 


♦.CONTINUE, 


1722 
1723 

1724 


012050 


000207 




GIT: 


RTS 


PC 


{RETURN 








• 


NO PATTERN GENERATION 




1725 
















1726 


012052 


000207 




PATR8;: 


RTS 


PC 


{RETURN. 


1727 
















1728 








• 


THIS 


SUBROUTINE INITIATES TS05 COMMAND EXECUTION 


1729 








♦ 


AND ( 


:HECKS FOR TS05 RE 


:SPONSE. 



lb 
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SEQ 0073 



173C 










• 


INPUTS: 




1731 










• 


OUTPUTS 


; 


1732 










» 


REGISTERS: R2, R3. 


173^ 










» 


CALLS: 


DROPU, MO 


1 734 
















3 735 


012054 


012737 


177777 


003436 


EXCUTE: 


: MOV 


0-1.TIME1 


1736 


012062 








50071$: 


{REPEAT 




1737 


012062 


005337 


0034 36 






DEC 


TIME1 


173G 


012066 


005737 


003436 






TST 


TIME1 


1739 


012072 


001011 








BNE 


50072$ 


1740 


012074 


004737 


012 734 






JSR 


PC,MOVMSG 


1741 


012100 
012100 
012102 
012104 
012106 


104455 
000002 
004536 
006120 








ERRDF 


2.NSSRM.STAERM 


1742 


012110 


004737 


017200 






JSR 


PC, DROPU 


1743 


012114 


000522 








BR 


EXCRTN 


1744 
















1745 


012116 








50072$; 






1746 


012116 


032775 


000200 


002524 




BIT 


0TS.SSR.8TSSRCR5) 


1747 


012124 


001756 








DFQ 


50071$ 


1748 


012126 


023727 


003420 


140004 




CMP 


CMOWRD,*SCH 


1749 


012134 


001022 








BNE 


50073$ 


1750 


012156 


010537 


003452 






MOV 


R5.R5SAVE 


1751 


012142 


004737 


017102 






JSR 


PC.FIRSTU 


1752 


012146 








50074$: 






1753 


012.*.46 


026527 


002604 


177777 




CMP 


DEVTBL(R5),$END 


1754 


012154 


001405 








BEQ 


50075$ 


1755 


012156 


004737 


012700 






JSR 


PC. USSR 


1756 


012162 


004737 


017150 






JSR 


PC,NEXTU 


1757 
















1758 


012166 


000767 








BR 


50074$ 


1759 


012170 








50075$: 






1760 


012170 


0137C5 


003452 






MOV 


R5SAVE,R5 


1761 
1762 
1763 


012174 


016537 


002544 


002474 




MOV 


MSGPKA(R5),SCH6K 


012202 








50073$: 






1764 


012202 


016503 


002544 






MOV 


MSGPKA(R5),R3 


1765 


012206 


005002 








CLR 


R2 


1766 


012210 








50076$: 






1767 


012210 


020227 


000020 






CMP 


R2.0MSGCNT 


1768 


012214 


001405 








BEQ 


50077$ 


1769 


012236 


012723 


177777 






MOV 


«-L.(R3)t 


1770 


012222 


062702 


000002 






ADD 


02, R2 


1771 
















1772 


012226 


000770 








BR 


50076$ 


1773 


012230 








50077$: 






1774 


012230 


105737 


002212 






TSTB 


DINT 


1775 


012254 


001023 








BNE 


1« 


1776 


012236 


126527 


003472 


000001 




CMPB 


INTFLGCR5),*1 


1777 


012244 


003412 








BLE 


50100$ 


1778 


012246 


017537 


002524 


003454 




MOV 


8TSSR(R5),1SSREG 


1779 


012254 
012254 
012256 
012260 


104455 

000017 
004727 








ERRDF 


15.TQQMM.STAERM 



IN1T TIMEOUT COUNTER. 
WAIT - 

UPDATE TIMEOUT COUNTER. 
jIF TIMED OUT: 



;MOVE CURRENT PACKET M3G . 




;REPORT TS05 NOT READY 




TRAP 


CiERD" 


.WORO 


2 


.WORD 


NSSRM 


.WORD 


STAERM 


:DROP THE UNIT. 




{RETURN. 





{WAIT UNTIL DEVICE IS READY. 

{IF WE ARE DOING A SET CHAR CMO THEN: 

;SAVE CURRENT DEVICE POINTER. 
;FINO FIRST UNIT. 

{WHILE DEVTBLCR5) NE *END DO 

{WAIT FOR UNIT READY OR TIME OUT, 
{FIND NEXT UNIT, 



{RESTORE CURRENT DEVICE POINTER. 
{SET UP ADR Of M5G PKT IN SCH BLOCK 



}ADR OF THIS UNIT'S MSG PACKET. 
{CLR COUNTER. 

{WHILE THERE ARE MORE LOCATIONS: 

s INI T THE MSG PACKET WITH ALL l'S 
{UPDATE COUNTER. 



ARE INTERRUPTS DISABLED. 

BR IF YES. 

IF MORE THAN ONE INTERRUPT HAS OCCURED: 

FREEZE THE CURRENT STATUS REG FOR PRINT 
{REPORT TOO MANY INTERRUPTS, 

TRAP CVERDF 
.WORD 15 
. WORD TOOMM 



i I*-; 



Gl 03AL ARFAS MACRO M120O 20-MAR-84 08:53 PAGE 17-31 
GLOBAL SUBROUTINES SECTION 



SEQ 0074 



1/60 

1781 
17ft? 
1733 
1784 
1785 
1786 
1787 
1788 
1780 
1790 
1791 
1792 
1793 
1794 
1795 
17% 
1797 



1793 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 

1815 

1816 
1817 



1318 
1819 

1820 
1821 



012262 
012264 
012270 

012272 

012272 
012276 
012304 
012310 
0123i2 
012316 

012324 
012324 

012332 
012340 
012342 
012346 
012346 
012350 
012352 
012354 
012356 

012362 
012362 



012364 
012372 
012372 
012372 
012374 
012402 
012404 
012404 
012410 
012412 
012416 
012420 
012424 
012426 
012432 
012434 
012434 
012442 
012444 
01?452 



006120 
004737 
000434 



005065 
052/37 
105737 
001005 
005265 
016577 



032775 
001410 
004 737 



104455 
000003 
004453 
006120 
004737 



000207 



104422 
023727 
001014 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

023727 
001404 
023727 
0010K 



017200 



0034 72 

000200 002330 

0034 71 

003376 

003376 171062 



012775 002330 002514 
000200 002524 
012734 



50100$ 
l$i 

50101$ 



017200 



50102$ 
EXCRTN 



012737 177777 003436 



GOUAIT 
50103$ 



003420 102010 

000012 
002116 

177772 
177756 

003420 105010 
003420 105410 



50104$ 



JSR PC.DROPU 
BR EXCRTN 



Ct.R INTFLGCR5) 

HIS OIE.CCMDPKT 

TST3 ERRRECjIFB ERRREC F.Q #0 

BNE 50101$ 

INC RECCNTCR5) 

MOV RECCNTCR5) V SDATAWT 



MOV ^CM0PKT,S)TSDBCR5) 



BIT 


$TS.SSR,3TSSR(R5) 


BEQ 


50102$ 


JSR 


PC.MOVMSG 


ERRDF 


3, TQERM, STAERM 



JSR 



RTS 



PC.DROPU 



PC 



.WORD STAERM 
} DROP THE UNIT 
{RETURN - UNIT HAS BEEN DROPPED. 



jCl.R INTERRUPT FLAG FOR THIS DEV. 

;3ET INT ENABLE BIT. 

THEN jIF NOT RETRYING 

;LET RECCNTCR5) — RECCNUR5) ♦ #1 

;THEN UPDATE REC COUNT TO WRITE IT QN TAPE 

{LOAD TSDB WITH CMOPKT ADDRESS 
{THIS INITIATES COMMAND EXECUTION. 
{IF READY DID NOT DROP THEN: 

;MOVE CURRENT MESSAGE PACKET TO COMMON. 

{REPORT NO TS05 RESPONSE. 

TRAP C$ERDF 

.UORD 3 

.WORD TOERM 

.WORD STAERM 

{DROP THE UNIT 



{RETURN. 



THIS SUBROUTINE WAITS FOR THE TS05 INERRUPT OR DONE BIT TO SET ANO ALLOWS THE 

OPERATOR TO TRANSFER CONROL TO TH€ SUPERVISOR. 

UPON APPEARANCE Of-* THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 

LOG BYTES AND ERRORS ANO PERFORM ERROR RECOVERY IF NESSASARY . 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: DROPU, MOVMSG, RECUO, CHKERR , LOG. CLRERR. 



MOV 0-1.TIME1 
jREPEAT 
BREAK 



CMP 
BNE 
DELAY 10. 



CMOWRD.ORWD 
50104$ 



{INIT TIME OUT COUNTER. 

{REPEAT UNTIL INTERRUPT OCCURES : 

;G0 TO THE SUPER TO ALLOW TTY INPUT. 

YRAP C$BRK 

{IF COMMAND WAS REWIND THEN: 



{WAIT 



EXTRA MSECS EACH LOOP. 




MOV 


410. .(PC)* 


.WOTD 





MOV 


L$DLY,(PC)> 


.WORD 





DEC 


-6CPO 


BNE 


.-4* 


DEC 


-22CPC) 


BK'E 


.20 



CMP 


CMOWRD.OSFF 


BEQ 


50105$ 


CMP 


CMOWRD.0SFR 


BNE 


50106$ 



{IF CMDWRD EQ OSFF OR CMDWRD EQ OSF'R THEN 



Z* 



K', 
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SEQ 00 7' 



1823 


012454 






1824 


012454 








012454 


012727 


0000 i4 




012460 


OOOOOO 






012462 


013727 


002116 




012466 


OOOOOO 






012470 


005367 


177772 




012474 


001375 






012476 


00536 7 


177756 




012502 


001367 




1825 


012504 






1826 


012504 


105737 


002212 


1827 


012510 


001003 




1828 


012512 


016502 


0034 72 


1829 








1830 


012516 


000406 




1831 


012520 






1832 


012520 


012703 


000200 


1833 


012524 


005103 




1834 


012526 


017502 


002524 


1835 


012532 


040302 




1836 








1837 


012534 






1838 


012534 


005337 


003436 


1839 


012540 


005702 




1840 


012542 


001003 




1641 


012544 


005737 


003436 


1842 


012550 


001310 




1843 


012552 






1844 


012552 


005737 


003436 


1845 


012556 


001022 




1846 


012560 


016577 


003376 


1847 


012566 


0053 7 7 


170614 


1848 


012572 


004737 


012734 


1849 


012576 








012576 


104455 






01260O 


00O0O4 






012602 


0O4670 






012604 


006120 




1850 


012606 


0O4737 


017200 


1851 


012612 


012703 


0034 72 


1852 


012616 


004737 


012664 


1853 








1854 


012622 


000417 




1855 


012624 






1856 


012624 


004737 


012734 


1857 


012630 


004737 


013020 


1858 


012654 


004737 


013210 


1859 


012640 


105737 


003463 


1860 


012644 


001006 




1861 


012646 


004737 


015566 


1862 


012652 


012703 


0034 72 


1863 


012656 


004737 


012664 


1864 








1865 


012662 






1866 








1867 


012662 







50105$ 



DLL AY 12. 



50106$ 



50107$: 



50110$ 



50111$ 



170620 



TSTB 
BNE 

MOV 

BR 

MOV 
COM 
MOV 
BIC 



DEC 
T5T 
BNE 
TST 
BNE 

TST 
BNE 
MOV 
DEC 
JSR 
ERRDF 



DINT 

50107$ 

INTF!_G(R5),R2 

50110$ 

*TS,SSR,R3 
R3 

STSSR(R5),R2 
R3,R2 



TIME1 

R2 

50111$ 

TIME1 

50103$ 



I ADD DF.LAr FOR SPACE TAFc MARK COMMANDS 

MOV 

.WORD 

MOV 

.UORD 

DFX 

BNE 

DEC 

BNE 

{IF INTERRUPTS ARE ENABLED, 

{FETCH INTERRUPT OCCURRED FLAG. 



{SET UP A MASK TOR THE DONE BIT. 
{FETCH DONE BIT. 



{UPDATE TIMEOUT COUNTER, 

{REPEAT UNTIL INTERRUPT OR READY OCCURES 



{IF TIME OUT HAS OCCURRED: 



412, ,rpc)* 



LtOLt t (PC'j* 



-6(PC) 

. -4 

-22CPC; 

, -20 





JSR 


PC.DROPU 




MOV 


*EN0ERF,R3 




JSR 


PCCLRERR 




BR 


50113$ 


50112$: 








JSR 


PC.MOVMSG 




JSR 


PC.RECUO 




JSR 


PC.CHKERR 




TSTB 


WRTYFG 




BNE 


50114$ 




JSR 


PC, LOG 




MOV 


*FNDERF,R3 




JSR 


PCCLRERR 


50114$; 






50113$: 







TIME1 

50112$ 

RECCNT(R5),aOATAWT 

SOATAWT 

PC.MOVMSG {MOVE CURRENT MSG PACKET TO COMMON AREA. 

4,N0INTM,STAERM {REPORT NO INTERRUPT. 

TRAP C$ERDF 
.WORD 4 
.WORD NOINTM 
.WORD STAERM 
;DROP THE UNIT. 
{LET R3 :■ 4ENDERF 

{CLEAR ALL ERROR FLAGS 



MOVE CURRENT MSG. PACKET TO COMMON AREA 
UPDATE THE RECORD COUNT. 
CHECK FOR STATUS ERRORS. 
jIFB WRTYFG EQ #0 THEN 



{LOG BYTES AND ERRORS. 
{LET R3 :- OENOF.RF 
{CLEAR ALL ERROR FLAGS 



i K* 
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SFQ 00/6 



1868 
1869 
10 iO 
1871 
187? 
1873 
1874 
1875 
1876 
137? 

1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 

1894 
1895 
1896 
1897 
1898 
1899 
1900 
19G1 
190? 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 

ma 

]9\9 
■9 -?0 

1922 
1923 



012662 000207 



012664 
C12670 
012670 
012672 
012674 
012676 



012 .'00 
01.2700 
012706 
012706 
012706 
012710 
012714 
012722 
012724 
012730 
012732 
012732 



012734 
012742 
012746 
012752 
01.2756 
012762 
012766 
012/70 
012770 
012774 
01 277 1- 
013002 



PC 



SUBROUTINE TO CLEAR FLAGS. 



{RETURN IF DONE. 



INPUTS: 
OUTPUTS: 
REGISTERS; 
CALLS: 



R3 * LWA TO BE CLEARED ♦ ? 



012702 003460 

005022 
020203 
001375 
00020 7 



R2 
#BGNf LG.R2 



CLRERR; : MOV 

50115$: {REPEAT 

CLR (R2)* 

CMP R2.R3 

BNE 50115$ 

RTS PC 



j LET R2 



4BGNFLG 



{LET CR2)» :« 60 
{UNTIL R2 EQ R3 



SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME CUT. 

INPUTS: 

OUTPUTS; 

REGISTERS: 

CALLS: 



012737 177777 003436 



104422 

005337 003436 

032775 000200 002524 

001003 

005737 007436 

001366 

000207 



USSR;: 
50116$; 



50117$: 



MOV 
BREAK 

DEC 
BIT 
BNE 
TST 
BNE 

RTS 



0-1.TIME1 jINIT TIMEOUT COUNTER. 

{REPEAT UNTIL DEV READY OR TIMEOUT: 
;BREAK TO THE SUPERVISOR. 

TRAP CiBRK 

TIME1 {UPDATE TIMEOUT COUNTER. 

0TS,SSR,3TSSR(R5) :UNTIL OTS.SSR SETIN 3TSSRCR5) OR TIME1 EQ #0 

50117$ 

TIME1 

50116$ 



PC 



{RETURN. 



SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
TO UPDATE THE CURRENT TERMINATION CLASS CODE. 

INPUTS; 



OUTPUTS: 
REGISTERS: 

CALLS: 



R2, R3. 



017537 002524 

013702 003454 

042702 177761 

010237 003450 

006237 003450 

016503 002544 
005002 

02022 7 000020 
001405 

112362 002354 

062702 000002 



003454 



MOVMSG; :MOV 
MOV 
BIC 
MOV 
ASR 
MOV 
CLR 

50120$: 

CMP 
BEQ 
MOV 
ADD 



aTSSR(R5),TSSREG 

TSSREG.R? 

*TSC.TCC,R2 

R2.CTCC 

CTCC 

MSGPKA(R5),R3 

R2 

R2.0MSGCNT 
50121$ 

CR3)*,MSGPKT(R2) 
02.R2 



{FREEZE THE STATUS REG CONTENTS 
{EXTRACT THE TERMINATION CLASS CODE, 

{AND SAVE IT 

,ADR OF THIS DEVICE'S MSG . 
{CLR COUNTER. 

{WHILE THERE ARE MORE LOCATIONS: 

{MOVE MSG TO COMMON AREA. 
{UPDATE COUNTER. 



A* j 
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SF'j 00/7 



1924 
1925 
1926 
192? 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1936 
1939 
1940 
1941 
1942 
194 3 
1944 
1945 
1946 
194 7 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
19/0 
1971 
19 72 
197.3 
1974 
1975 
1976 
197 7 
1978 
19 '9 
1°JJ0 



013006 
013010 
013010 
013016 



013020 
013024 
013026 
013032 
013040 
013042 
013050 
013052 
013056 
013064 
013066 

013072 
013074 
013074 
013102 
013104 
013112 
013114 

013122 

013124 

013130 

013130 
013132 
013132 
013140 
013142 
013150 
013152 
013156 
013160 
013164 
013166 
013172 
C13174 
013200 

013200 

013200 

013200 



000770 

01373/ 
000207 



105737 
001070 
005365 
032737 
001057 
03273/ 
001453 
105237 
023727 
001003 
005065 

000442 

032737 
001436 
032737 
001007 
032737 
001002 
005265 



000423 

032737 
001417 
032765 
001013 
105737 
001406 
105737 
001403 
105737 
001002 
005365 



002362 003502 



003465 

003376 
000001 

100000 

003465 
003420 

003376 



004000 
000400 
000400 
003376 



0004 00 
000002 
003471 
003516 
003465 
003376 



50121$ 



RECUD: 



003450 
002366 

102010 



003420 
003420 
003424 



50124$ 



50130$ 
50127$ 



003424 
003502 



2$: 
10*: 

50133$ 

50132$ 

50131$ 



BR 50120$ 

MOV MSGPKT *MS . XSO , EOTFLG 

RTS PC 



{MOVE XSTATO T FOT FLAG. 



SUBROUTINE TO ADJUST THE RECORD COUNT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



TSTB 

BNE 

DEC 

BIT 

BNE 

BIT 

BEQ 

INCB 

CMP 

BNE 

CLR 

BR 

BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 
INC 



BR 

BIT 

BEU 

BIT 

BNE 

TSTB 

BEQ 

TSTB 

BEQ 

TSTB 

BNE 

DEC 



RECLOG 

50122$ 

RECCNTCR5^ 

OBITO.CTCC 

50123$ 

4X2 . OPM , MSGPK T * MS . XS2 

50123$ 

RECLOG 

CMDWRD.^RWD 

50124$ 

RECCNTCR5) 

50125$ 

oeRF.C.CMDURD 

50126$ 

OttOO.CO.CMDWRD 

50127$ 

$MOD.CO,PCMDWD 

50130$ 

RECCNTCR5) 



50131$ 

OMOD.CO.PCMDWD 

50132$ 

*X0.B0T,E0TFLG(R5) 

50133$ 

ERRREC 

2$ 

VFYFLG 

2$ 

RECLOG 

10$ 

RECCNTCR5) 



;IF RECORD HAS NOT BEEN LOGGED: 



;LET RECCNTCR5) : = RECCNTCR5) - 01 
{IF TAPE MOVED 



:SET RECORD LOGGED, 

{IF THIS IS A REWIND CMD: 

; CLEAR RECORD COUNT, 



j IF BRF USED, UPDATE RECORD COUNT. 
IF A FORWARD CMD: 
IF PREV CiiO WAS A FWD ALSO: 
INCREMENT RECORD COUNT. 

{IF REVERSE CMO: 

j IF PREVIOUS CMD WAS A REV ALSO: 

{WHEN NOT AT BOT THEN 

{CHECK THE ERROR RETRY INOICATOR 
jBR, IF WE ARE NOT NOW IN ERROR RETRY 
{CHECK THE WRITE VERIFY INDICATOR 
iBR, IF WE ARE NOT IN WRT/VFY MOOE 
{CHECK IF THIS RECORD HAS BEEN COUNTED 
;BR, l* HAVE ALREADY BUMPED RECORD CNTR 
{DECREMENT RECORD COUNT. 
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Nb 



SEQ 0078 



1981 

1982 

1985 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

199? 

1995 

1994 

1991- 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

20x3 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

202 7 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 



013200 

013200 

013200 
013200 

013206 
013206 



013210 
013216 
013220 
013226 
013230 
013234 
013236 

013242 

013242 
013242 
013250 
013252 
013260 
013262 
013262 
013270 
013272 

013276 
013300 
013300 

013304 

013304 
013306 
013306 

013312 
013312 
013314 

0^3320 
013322 

013322 



016577 003376 170200 



000207 



032737 
001441 
02372 7 
001405 
105 7 37 
001002 
005265 



032737 
001004 
032737 
001412 

032/37 
001003 
012702 

000402 

012702 



000402 
013702 

006302 
004/72 

000426 

032737 



50126$ 
50125$ 
50123$ 

50122$: 



100000 003454 CHKERRi 
003450 000002 
003471 
003336 



004000 003454 
040000 003454 

100000 002366 
000005 

000004 



50136$: 
50135$: 

50137$: 



00^450 



013414 



004000 0034^0 



50141$ 
50142$ 
50140$ 
50143$ 

50134$ 



MOV 



RTS 



RECCNTCR5),5)DATAWT 



PC 



iLET 30ATAWT : = RECCN7(R5) 



; RE TURN. 



THIS IS THE ERROR CHECK SUBROUTINE . AFTER INTERRUPT THIS 

SUBROUTINE IS CALLED TO CHECK I i IE TS05 STATUS. 

IF SPECIAL. CONO 13 SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 

IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 

THEN AN ERROR R^C IS REPORTED. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2. R4 . 

CALLS: TCC0-TCC7. 



BIT 
BEQ 
CMP 
BFQ 
TSTB 
BNE 
INC 



BIT 

BNE 
BIT 
BEQ 

BIT 

BNF 
MOV 

BR 

MOV 

BR 

MOV 



ASL 
JSR 

BR 

BIT 



*T5.SC,TSSREG 

50134$ 

CTCC.02 

50135$ 

ERRREC 

50136$ 

SCCNTCR5) 



; IF SPECIAL COND STATUS IS SET THEN 
{If TCC IS NOT ? THEN: 
;IE NOT IN ERROR RECOVERY: 
l INC SC COUNTER. 



OTS.NXM, TSSREG 
50137$ 

OTS.UPE.TSSREG 
50140$ 

0X2 . CPM. MSGPKT *Mb . XS2 

50141$ 
05, R2 

50142$ 

04, R2 



50143$ 
CTCC.R2 

PC.STCCRACR2) 

50144$ 

OBRF.C.CMDWRD 



, JHEN NON-EXISTANT MEMO 

:AN0 TAPE NOT MOVED 
{SET TCC5 INDEX 

l TAPE MOVED, SET TCC4 INDEX 



j SET DETECTED TCC INDEX 



{CURRENT TCC X 2. 

{GO TO THE TCC HANDLING SUBROUTINE 



{IF BRF IS USED IN THIS CMD THEN: 



J ( 
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GLOBAL SUBROUTINES SECTION 



SFQ 00/9 



2038 


013330 


001422 




2039 


013332 


005737 


002360 


2040 


013336 


001417 




2t>41 


013340 


105737 


003515 


2042 


013544 


0O14C3 




204 3 


014*46 


105737 


005516 


2044 


013352 


001411 




2045 


013354 






2046 








204 7 


013354 


105737 


005521 


2048 


013360 


001006 




2049 


013362 


005265 


003356 


2050 


013366 








013366 


104456 






013370 


000015 






013372 


004521 






013374 


006120 




2051 








2052 


013376 






2053 








2054 


013376 






2055 








2056 


013376 






2057 








2058 


013376 






2059 








2060 


013376 






2061 


013376 


105737 


003467 


2062 


013402 


001403 




2063 


015404 


013737 


003422 


2064 








2065 


015412 






2066 


015412 


000207 




2067 








2068 








2069 








2070 


015414 


0154 34 




2071 


015416 


015452 




2072 


015420 


015470 




2073 


015422 


015600 




2074 


015424 


015616 




207j 


015426 


014252 




20 76 


015450 


014350 




2077 


015432 


014472 




2078 








2079 








2030 








2081 








2082 








2083 








2064 








2085 








2086 


015454 


005265 


003356 


2087 


013440 








015440 


104456 






0154*2 


000005 






015444 


004475 





50147$ 



002330 



501511 
50150$ 
50146$ 
50145$ 
50144$ 

50152$ 

t 
TCCRA: 



TCCOt 



BfcO 


50145$ 








TST 


MSGPKT»M r ;.RFC 




, n thf;rf I'> AN Rf'C THfN: 




BF.Q 


50146$ 








TiTB 


RANOOM 


lire 


RANDOM FQ 00 ORB VF lTLC> NE 00 THFN 




Bt.U 


50147$ 








TSTB 


VFrFi G 








BEQ 


50150$ 




j I* NOT IN RANDOM OR If C*D 


IS WTv: 


TSTR 


IRE 




jIF RFC ERROR REPORTS ARF Ai I OWED 


; 


BNt 


50151$ 








INC 


HRDCNHR5 ) 




j UPDATE HARD ERROR COUNT 




F.RRHRD 


13,RFCERM # 'jTAERM 


jREPORT RFC ERROR 










TRAP 


C$FRHRO 








.WORD 


15 








.WORD 


Rf CERH 








,WORO 


STAERM 



TSTB 

BEQ 

MOV 



RTS 



RUERR 
50152$ 

CM05AV,CM0PKT 



PC 



j IF A RFAO'URITE ERROR HAS OCCURRED THEN 
I RE 5 TORE CMO PACKET AFTER ERROR RECUv . 

1 RETURN. 



AOORb^SES OF TCC HANOLlNb ROUTINES FOR TERMINATION CLASS COOES 

TCCO 
TCC1 
TCC2 
TCC3 
TCC4 
TCC5 
TCCfc 
TCC7 

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0. DEFINED SPECIAL 

COTCITION ERROR. 

I^UTSt 

OUTPUTS: 

REGISTERS; 

CMLLS: 



INC HR0CNTCR5) 

ERRHRQ *uSCERN» STAERM 



I UPDATE HARD ERROR COUNT. 
tREPUFlT SPECIAL CONDITION ERROR, 

TRAP CtERHRQ 

.WORD 5 
.WORD SCERM 



r 
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GLOBAL SUBROUTINES SECTION 



V'O 00/50 



t'UOO 

2069 
2090 
2091 
20*2 
2093 
2294 
2095 

20% 

2097 
2095 
2099 



2100 
2101 
2102 
2103 
2104 
2105 
210*) 
2107 

2108 
2109 
2110 
2111 
2112 
2113 
2114 

2m 

2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 



013446 
013450 



006120 
000207 



RTS PC 



j RE TURN, 



,WOPO STAFRM 



013452 
013452 
013454 
013456 
01346C 
013462 
013466 



013470 
013476 
013500 
013504 



013506 000433 



013510 
013510 



013516 001427 



013520 
013524 
013526 
013532 
013554 

013554 
013540 
013542 
013546 

013550 

013554 
013556 
013556 



104455 
000006 
004603 
006120 

0O4737 017200 
000207 



032737 000002 002562 

001404 

105737 003514 

001401 



TCC2:: 



032757 170002 002562 



105737 003515 

001403 

105737 003516 

001421 



105737 003521 

001016 

105737 003471 

001403 

105237 005470 

000402 

005265 005536 



SUBROUTINE TO HA NOLI' TERMINATION CLASS COD* t, ATTENTION CONDITION 
THIS TCC INDICATES THAT THE OR WE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OEFl INF OR COMING ONLINE, 
INPUTS: 
OUTPUTS: 

REGISTERS! R2.R4 

DROPU 



CALLS 



TCClii ERRDF 6, ATTNM.STAERM 



50l53$i 



50155$: 



50160$; 



JSR 
RTS 



PC, DROPU 
PC 



{REPORT ATTENTION-UNIT OFF LINE, 

TRAP C$ERD< r 

.WORD 6 
.WORD ATTNM 
.WORD STAERM 

»DROP THE UNIT. 

j RE TURN. 



SUBROUTINE TO HANOLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAr HAVE SIGNIFICANCE 

TO THC PROGRAM. BITS OF INTEREST INCLUDE TMK , RLS, LET, RLL , BOT, EOT 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



BIT 
BEQ 
TSTB 
BEQ 

BR 



BIT 



BEQ 

TSTB 
BEQ 

TSTB 
BEQ 



TSTB 

BNE 

TSTB 

BEQ 

INCB 

OR 

INC 



♦XO . BOT , MSGPK T f MS . XSO 

50153$ 

EXPflOT 

50153$ 



TC2RTN 



I IF AT BOT ANO BOT IS EXPECTED 
{RETURN-TCC2 CAUSED BY EXPECTED BOT. 



♦XO, RL S ! XO. RLL ! XO. TMK JXO.LETJXO. BOT, MSGPK T*MS. XSO 

jIF •XO.RLS!XO.RLL!XO.TMK!XO.LET!XO.BOT SETIN MSGPKT *MS. XSO THEN 



50154$ 

RANDOM 
50155$ 
VFrFLG 
50156$ 



IRE 

50157$ 

ERRREC 

50160$ 

UNREC 

50161$ 

SCCNT^RS) 



jIF TCC2 CAUSED BY ANYTHING BUT EOT: 
jIFB RANDOM EQ *0 ORB VFyFLG NE 00 THEN 



I IF NOT IN RANDOM OR IF CMO IS WTVj 
j IF RFC ERROR REPORTS ARE A. LOWED: 

i IF WE ARE IN ERROR RECOVERY THEN: 

jSET UNRECOVERABLE fLAG FOR LOG. 

i ELSE - IF NOT IN ERROR RECOVERY; 



{INCREMENT THE SPEC CONO COUNTER* 



I),' 
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GLOBAL SUBROUTINES SECTION 



OEO 00*1 



£140 
21.41 
214? 



2143 

«:i44 

v.145 
2146 
214? 
2148 
2149 
2150 
2151 
21132 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 



2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 



013562 
013562 
013566 
013566 
013570 
013572 
013574 

013576 

013576 

013576 

013576 



013600 

013600 
013602 
013604 
013606 
013610 
013614 



013616 
013624 
013626 
013632 
013634 
013640 



005265 00335b 

10^456 
000007 
004 705 
006120 



50161$: 



000207 



50157$ 
50:.56$ 
50154 $ 
TC2RTN 



104455 

000010 

004622 

006120 

0O4737 017200 

000207 



TCC3 



023727 003426 
001125 

105737 002210 

001522 

105737 003471 

001007 



000002 TCC4 



INC HR0CNT(R5) 
ERRHRD 7.TSAM,STAERM 



jUPDAU HARD ERROR CO'JNT . 




jRfcPORT TAPb STATUS ALERT. 




TRAP 


Ci^.PHRD 


.WORD 


7 


.W0«D 


TSAM 


.WORD 


STAERM 



RTS PC 



jRET'JRN. 



SUBROUTINE TO HANOLE TERMINATION CLASS COOE 3, FUNCTION REJECT. 

THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 

RMR, OFL, VCK, BOT , ILC, WLE, ILA, ANO NBA, 

INPUTS: 

OUTPUTS j 

REGISTERS: R2.R4 

CALLS: DROPU 



ERRDF 8.FUNRM.STAERM 



iREPQRT FUNCTION REJECT. 



JSR 

RTS 



PC, DROPU 
PC 





TRAP 


CiERDF 




.WORD 


8 




.WORD 


FLf^M 




.WORD 


STAERM 


lOROP THE UNIT. 






i RE TURN. 







SUBROUTINE TO HANDLE TERMINATION CLASS COOE 4, RECOVERABLE ERROR 

TA*E POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 

2 HRITE-ERROR -RECOVERY ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE. VIA BAOTSW SWITCH. DOES DETECT BAD SPOTS ON TAPE 

IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAO SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD 

SPOTS LOGGED, A BAO TAPE OVERFLOW MSG IS PRINTED ANO THE 

UNI T DROPPED 

THE SECOND ALGORITHM ISSUES THE TS05 WRITE RETRY COMMAND 

UP TO \6 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2.R4. 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 



CMP 

BNE 

TSTB 

BEQ 

TSTB 

BNE 



CMOLG , 02 

50i62$ 

BADTSW 

50162$ 

ERRREC 

50163$ 



I IF CMOLG EQ 02 ANOB BADTSW NE 40 THEN 



jIFB ERRREC EQ 00 ANOB ERCVEP NE $0 THEN 



IV 
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GLOBAL SUBROUTINES SECTION 



SEQ 0082 



2189 


013642 


105737 


002207 






TSTU 


ERCVER 










2190 


013646 


001404 








BEQ 


50163$ 










2191 


013650 










ERRSOFT 


9.RERM.STAERM 










013650 


104457 
















TRAP 


C$E.RSOFT 




013652 


000011 
















.WORD 


9 




013654 


005017 
















.WORD 


RERM 


2192 

2193 


013656 


006120 
















.WORD 


STAERM 


013660 








50163$: 














2194 


013660 


105737 


002213 






TSTB 


IREC 


jIFe IRF.C EQ 


00 THEN 




2195 


013664 


001102 








BNE 


50164$ 










2196 


013666 


105237 


003471 






INCB 


ERRREC 


I RETRY 


FLAG FOR EXCUTE Sl8P: DON'T UPDATE REC 


CN 


2197 


013672 


105237 


003464 






INCB 


WRTYER 


;REWRITE ERROR FLAG FOR WRTY SUBR 




2198 


013676 


105737 


003463 






TSTB 


WRTYFG 


{FIRST 


RETRY 


ON THIS RECORD: SUBSEQUENT 




2199 


013702 


001072 








BNE 


50165$ 










2200 
















{RETRIES WITH TCC4 ERRORS BY -PASS THIS SECTION 


2201 


013704 


013737 


003420 


015106 




MOV 


CMDWRD.WTYWRD 


SAVE WRITE COMMANO PACKET 




2202 


013712 


013737 


002330 


015104 




MOV 


CMOPKT.WTYCMO 








2203 


013720 


013737 


002336 


015110 




MOV 


CMDPKT*CP. 


CNT.WTYBRF 






2204 


013726 


105237 


003467 






INCB 


RWERR 




LOG SUBR FLAG: COUNT WRT ERRORS 




2205 


013732 


105237 


003463 






INCB 


WRTYFG 




RETRY 


IN PROGRESS FLAG 




2206 
























2207 


013736 








50166$: 


; 


REPEAT 










2208 


013736 


005265 


C03316 






INC 


WRTYCTCR5) 




COUNT 


GLOBAL WRITE RETRIES 




2209 


013742 


005037 


003460 






CLR 


RttTRYC 




CLEAR 


« OF RETRIES PER RECORD 




2210 


013746 


105037 


003462 






CLRB 


RPTCNT 




CLEAR 


9 OF REPEATS 




2211 


013752 


0O4737 


014636 






JSR 


PC.WRTY 




CALL WRITE RETRY 




2212 


013756 


105737 


003464 






TSTB 


WRTYER 




REPEAT RETRIES ON SAME RECORD 




2213 


013762 


001404 








BEQ 


50167$ 










2214 


013764 


027727 


167522 


000050 




CMP 


88TPT.040. 










2215 


013772 


103761 








BLO 


50166$ 










2216 


013774 








50167$: 














2217 




















{UNTIL RECOVERED OR 20 8A0 SPOTS 


2218 


013774 


027727 


167512 


000050 




CMP 


8B1P T ,«40. 






j WHEN 20 BAD SPOTS LOGGED 




2219 


014002 


103423 








BLO 


50170$ 










2220 


014004 
014004 
014010 
014014 
014016 
014020 


012746 
012746 
010600 
104414 
062706 


015177 
000001 

000004 






PRINTB 


0BTMSG2 






j PRINT BAD TAPE OVERFLOW MSG 

MOV 
MOV 
MOV 
TRAP 
ADD 


*6TMSG2,-(SP) 

♦i.-csp) 

SP,RO 

C$PNTB 

04.SP 


2221 


014024 


0O4737 


015316 






JSR 


PC.BOREPS 






{ERASE BAD RECORD 




2222 


014030 


005365 


0O3376 






DEC 


RECCNTCR5) 










2223 


014034 


0O4737 


017200 






JSR 


PC,DR0PU 






j DROP UNIT 




2224 


014040 


005065 


003376 






CLR 


RECCNTCR5) 










2225 


014044 


012775 


002350 


002514 




MOV 


0RUCPK.8T3 


DBCR5) 




{REWINO UNIT 




2226 
























2227 


014052 








50170$: 














2228 


014052 


105037 


003463 






CLRB 


WRTYFG 






{RETRY COMPLETE FLAG 




2229 


0.14056 


105237 


003531 






INCB 


MISCFG 






{DO NOT HAlT ON THIS CMC FLG 




2230 
2231 
2232 


014062 


013737 


015106 


003424 




MOV 


WTYWRD.PCMOWD 




{RESTORE ORIGINAL WRT CMO AFTER 


RECOVERY 


014070 








50165$: 














2233 
























2234 


014070 


000402 








BR 


50171$ 










2235 


014072 








50164$: 














2236 


014072 


105237 


003470 






INCB 


UNREC 


jUfcT 


UNREC 


:B- UNREC * 01 ; 
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SEQ 0083 



2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 



2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 



014076 

014076 
014100 
014100 
014104 
014112 
014114 
014120 
014122 
014126 
014130 

014136 

014136 
014136 
014142 
014144 
014150 
014152 
014152 
014154 
014156 
014160 

014162 
014162 
014166 
014174 
014200 
014202 
014206 
014210 
014212 
014216 

014222 
014224 
014224 

014230 

014230 

014230 



000454 

C04737 014510 

023727 003426 000002 

003411 

012702 000020 

006202 

023702 003460 

002403 

052737 0200CO 002330 



005737 003460 

001007 

105737 002207 

001404 

104457 
000011 
005017 
006120 



005237 005460 

052737 001000 002330 

105737 002213 

001011 

105237 0jo471 

0126C 

012602 

0047J7 012054 

000137 012364 

0OCK02 

105237 005470 



000207 



50171$; 








BR 


501721 


50162$: 








JSR 


PC, RILE 




CMP 


CMDLG.fi-2 




BLE 


50173$ 




MOV 


0RRECL.R2 




ASR 


R2 




^MP 


RETRYC, R2 




BLT 


50174$ 




BIS 


OOPP.C.CMDPKT 


50174$: 






50173$: 








TST 


RETRYC ; 




BNE 


50175$ 




TSTB 


ERCVER 




BEQ 


50175$ 




ERRSOFT 


9.RERM.STAERM 



50175$ 



50176$ 

50177$ 
50172$ 



j CHECK FOR RETRY LIMIT EXCEEDED 
}IF READ CMO THfcN: 

jR2-REA0 RETRY COUNT LIMIT / ? 

{IF RETRY COUNT IS MORE THAN HALF LIMIT 

;SET OPPOSITE BIT FOR RETRr2. 



IF THIS IS THE ORIGINAL ERROR THEN: 



TRAP 


C$ERSOFT 


.WORD 


9 


.WOPD 


RERM 


.WORD 


STAERM 



INC 


RETRYC : 


BIS 


#MOO.C1,CMOPKT j 


TSTB 


IREC ; 


BNE 


50176$ 


INCB 


ERRREC ; 


MOV 


CSP)*.R2 


MOV 


CSP)*.R2 


JSR 


PC.EXCUTE 


JMP 


GOWAIT 



BR 
INCB 



RTS PC 



50177$ 
UNREC 



{REPORT RECOVERABLE ERROR 



PROVIDED OPERATOR HAS ENABLED THE REPORT 

UPOATE RETRY COUNT. 

SET RETRY BIT IN CMO PACKET. 

IF ERROR RECOVERY ENABLED: 

SET ERROR RECOVERY FLAG* 

;POP 2 RTN AORS FROM STACK. 

?G0 EXECUTE THE RETRY COMMAND. 
;G0 WAIT FOR INTERRUPT * CHECK STATUS. 
{ELSE IF ERROR RECOVERY IS NOT ENABLED 



{SET UNRECOVERABLE ERROR FLAG. 



{RETURN 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR ANO RE -ISSUE THE ORIGINAL COMMANO. 

INPUTS: 

OUTPUTS: 

REGISTERS? R2.R4. 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 



014232 
014236 



004737 014510 
005737 003460 



TCC5:: 



JSR 
TST 



PC, RTLE 
RETRYC 



{CHECK TOR RETRY LIMIT EXCEEDED 

j IF THIS IS THE ORIGINAL ERROR THEN 



G/ 
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^EQ 0064 



2290 


014242 


001004 




2291 


014244 








014244 


104457 






014246 


00OO12 






014250 


005017 






014252 


006120 




2292 


014254 






2293 


014254 


005237 


003460 


2294 


014260 


105737 


002213 


2295 


014264 


001016 




2296 


014266 


105237 


003471 


2297 


014272 


005265 


003376 


2298 


014276 


016577 


003376 


2299 


014304 


012602 




2300 


014306 


012602 




2301 


014310 


004737 


012054 


2302 


014314 


OOC137 


012364 


2303 








2304 


014320 


000402 




2305 


014322 






2306 


014322 


105237 


003470 


2307 








2308 


014 326 






2309 


014326 


000207 




2310 








2311 








2312 








2313 








2314 








2315 








2316 








2317 








2318 








2319 








2320 








2321 








2322 








2323 


014330 


033737 


OuOOlO 


2324 


014336 


001016 




2325 








7326 


014340 


005737 


003426 


'S27 


014544 


001404 




2328 


014346 


105237 


003467 


2329 


014352 


105P37 


003470 


2330 








2331 


014356 






2332 


014356 








014356 


104455 






014360 


000013 






014362 


005041 






014364 


006120 




2333 


014366 


004737 


017200 


2334 








2335 


014372 


0OO436 




2336 


014374 






2337 


014374 


004 737 


014510 


2338 


014400 


005737 


003460 



50200$ 



167102 



002370 TCC6;; 



BNE 

ERRSOFT 



502005 

10, RERM, STAERM 



j REPORT RECOVERABLE ERROR. 



TRAP 


CJERSOFT 


.WORD 


10 


.WORD 


RERM 


.WORD 


STAERM 



INC 


PETRYC ;U 


TGTB 


IREC 


BNE 


50201$ 


INCB 


cRRREC }S 


INC 


RECCNTCR5) ;U 


MOV 


RECCNT(R5),S)0ATAWT 


MOV 


(SP)*,R2 


MOV 


(SP)*,R2 


JSR 


PC.EXCUTE 


JMP 


GOWAIT 



{UPDATE RETRY COUNTER. 

jIF ERROR RECOVERY IS ENABLED; 

;SET ERROR RECOVERY FLAG. 
{UPDATE REC COUNT 

{AND INSERT IT INTO WRT 
;POP 2 RTN ADRS FROM STACK. 



BFR 



50201$ 



50202$; 



BR 
INCB 



RTS 



502021 
UNREC 



PC 



j GO RE -ISSUE THF. COMMAND. 
;G0 WAIT FOR INTERRUPT *■ CHECK STATUS, 
j ELSE IF ERROR RECOVERY IS NOT ENABLED: 



j SET UNRECOVERABLE ERROR FLAG. 



{RETURN. 



50204$: 



SUBROUTINE TO HANDLE TERMINATION CLASS COOE 6, UNRECOVERABLE EttftOR. 

TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 

IS TO REUIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 

SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWINO ANO RETRY THE 

COMMAND ONLY IF DENSITY CHECK IS SET, OTHERUISE THE UNIT WILL BE 

DROPPED FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE. WSSR, EXCUTE, GOWAIT, DROPU 

BIT X3.DCK,MSGPKT*MS.XS3{IF X3.DCK NOTSETIN MSGPKUMS.XS3 THEN 

BNE 50203$ 

{IF THERE IS NO DENSITY CHECK THEN 

TST CMDLG i IF CMD IS A READ OR WRITE THEN: 

BEQ 50204 $ 

INCB RWERR {SET RD/WR ERROR FLAG. 

INCB UNREC {SET UNRECOVERABLE ERROR FLAG. 

ERRDF 11, URERM. STAERM {REPORT UNRECOVERABLE ERROR. 



50203$: 



JSR 
BR 

JSR 

TST 



PC, DROPU 

50205$ 

PC, RTLE 

RETRYC 



TRAP 


C$ERDF 


.WORD 


11 


.WORD 


URERM 


.WORD 


STAERM 


♦ DROP 


UNIT, 



{REPORT ERROR 
jELSE-IF THERE IS DENSITY CHECK: 



{CHECK FOR RETRY LIMIT EXCEEDED. 
{IF THIS IS THE ORIGINAL ERROR THEN: 
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SEQ 006! 



2339 
2340 



2341 
2542 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
"350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2353 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 



2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 



014404 
014406 
014406 
014410 
014412 
014414 

014416 
014416 
014422 
01^426 
014430 
014434 
014442 
014446 
014450 
014452 
014456 

014462 
014464 
014464 

014470 

014470 
014470 



014472 
014472 
014474 
014476 
014500 
014502 
014506 



014510 
014514 
014516 



001004 

10445 7 
000013 
005041 
006120 



00523 7 
105737 
001016 
105237 
012775 
004737 
012602 
012602 
004737 
000137 

000402 

105237 



000207 



104455 
000014 
004642 
006120 
004737 
000207 



005737 
001010 



003460 
003521 

003471 
002350 
012700 



012054 
012364 



003470 



50206$ 



002514 



017200 



003426 



RILE;; 



BNE 50206$ 

ERRSOFT 11, URERM, STAERM 





INC 


RETRYC 




TSTB 


IRE 




BNE 


50207$ 




INCB 


ERRREC 




MOV 


*RWCPK,STSDB(R5) 




JSR 


PC,WSSR 




MOV 


CSP)*,R2 




MOV 


CSP)»,R2 




JSR 


PC.EXCUTE 




JMP 


GOWAIT 




BR 


50210$ 


50207$: 








INCB 


UNREC 


50210$: 






50205$: 







{REPORT DENSITY CHECK ERROR 

TRAP C$ERSOFT 

. WORD 1 1 

.UORD URERM 

.WORD STAERM 



{UPDATE RETRT COUNT, 

j IF ERROR RECOVERY IS ENABLED THEN 

SET ERROR RECOVERY FLAG, 
ISSUE A REUINO COMMAND, 
WAIT FOR SUBSYSTEM READY, 
{POP 2 RTN ADRS FROM STACK. 

{REISSUE THE COMMAND. 
{WAJT FOR INTERRUPT 
sELSE-IF ERR REC DISABLED: 



RTS 



PC 



;SET UNRECOVERABLE ERROR FLAG. 



{RETURN 



SUBROUTINE TO HANDLE TERMINATION CLASS COOE 7, FATAL SUBSYSTEM 

ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 

COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 

REFER TO THE FATAL CLASS CODF FIELD IN THE TSSR REGISTER FOR 

ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: 



TCCVj: ERRDF 12, FATSM, STAERM 



{REPORT FATAL 



JSR 
RTS 



PCDROPU 
PC 



SUBSYSTEM ERROR. 




TRAP 


C$ERDF 


.WORD 


12 


.WORD 


FATSM 


.WORD 


STAERM 



;DROP THE 
{RETURN, 



UNIT. 



SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED, PRINTS ERROR MESSAGE 

IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 . 

CALLS: DROPU 

TST CMOLG | IF CMD IS NOT A READ OR WRITE THEN: 

BNE 50211$ 

ERRDF 11, URERM, STAERM {REPORT UNRECOVERABLE ERROR. 



.! ( 



global aw: as macro muoo 20 -mar -84 08:53 page 17-45 
global subroutines section 



SEQ 0066 



2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 



2400 

2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 



2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 



014516 
014520 
014522 
014524 
014526 
014532 
014534 

014536 
014536 
014542 
014550 
014552 
014560 
014562 
014566 
014566 
014570 
014572 
014574 
014576 
014602 
014604 

014604 
014606 
014606 
014614 
014616 
014622 
014622 
014624 
014626 
014630 
014632 
01463* 

014634 
014634 



104455 
000013 
00504 1 
006120 
004737 
012602 
000437 



105237 
023727 
001016 
023727 
001011 
105237 

104455 
0OO016 
004 55C 
006120 
004 737 
012602 



000413 

023727 
001007 
105237 

104456 
000016 
004556 
006120 
012602 



000207 



017200 



003467 

003426 000002 

003460 000020 

003470 



50211$: 



017200 



003460 000020 
003470 



50213$: 



50212$: 



50215$: 



JSR 
MOV 



BR 



CMP 
BNE 
INCB 
ERRHRD 



MOV 



50214$: 
RTLRTN: RTS 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 

11 

URERM 

STAEPM 



JSR 


PC.DROPU 


MOV 


CSP)*,R2 


BR 


RTLRTN 


INCB 


RWERR 


CMP 


CMDLG.02 


BNE 


50212$ 


CMP 


RETRYC.OWRECL 


BNE 


50213$ 


INCB 


UNREC 


ERRDF 


14, RLEXM, STAERM 



PC.DROPU 
(SP)*,R2 



50214$ 



RETRYC.*RRECL 

50215$ 

UNREC 

14, RLEXM, STAERM 



(SP)»,R2 



PC 



;DROP THE UNIT. 
;POP RTN ADRS FROM STACK, 
j AND RETURN. 



} SET READ/WRITE ERROR FLAG. 

;IF CMO IS A URT OR UTM: 

;IF RETRY COUNT HAS REACHED LIMIT: 

j SET UNRECOVERABLE FLAG 
{REPORT RETRY LIMIT EXCEEDED. 

TRAP 
.WORD 
.WORD 
.WORD 
;DROP THE UNIT. 
;POP 2 RTN ADRS FROM STACK. 

;ELSE - CMD IS A READ: 



l IF RETRY COUNT HAS REACHED LIMIT: 

;SET IRRECOVERABLE FLAG 

{REPORT RECOVERABLE ERROR. 

TRAP 
.WORD 
.WORD 
.WORD 
;POP 2 RTN ADRS FROM STACK, 



{RETURN 



C$ERDF 
14 

RLEXM 
STAERM 



C$ERHRD 
14 

RLEXM 
STAERM 



SU6R TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 

REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

IF ALL 4 REPEATS GOOO. RECORD IS RECOVERED 

AND A RECOVERABLE WRITE ERROR IS LOGGED. 

IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 

BAD SPOT. RETRY AGAIN. RETRY 4 TIMES. UP TO 4 REPEATS EACH, 

IF RECORD NOT GOOO AFTER 4 RETRIES, ERASE IT, EXIT WITH 

ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 

THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 

SPOTS MAX ARE ALLOWED. 



014636 



INPUTS: 
OUTPUTS: 
REGISTERS: 
i CALLS: 

WRTYsi {BEGIN RETRY 



R3.R4 
BORERS, REWRT 

{REPEAT 
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GLOBAL SUBROUTINES SECTION 



SFG 0087 



2453 
24 34 
243b 
2436 
2437 
2438 
24 39 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 



2458 
2459 
2460 
2461 
2462 
246^ 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
24 71 
24 72 
24 73 
24 74 
24 75 
24 76 
24 77 
24 78 
24 79 
2480 
2481 



014636 



014636 
014636 
014642 
014646 
014652 
014656 
014664 
014666 
014672 
014674 

014674 
014674 
014700 
014704 
014706 

014710 
014710 
014714 
014716 
014716 
014720 
014724 
014730 
014734 
014740 
014742 
014744 
C14750 
014750 
014756 
014760 
014766 
014772 
014776 
015002 
0150O6 
015010 
015014 
015016 

015022 

015022 
015022 
015026 
015032 

015036 
015036 
015044 



004737 
10503V 
004737 
105237 
123727 
001403 
105737 
001761 



005237 
105737 
001001 
000457 



105737 
001415 

005046 
153716 
013746 
012746 
012746 
010600 
104414 
062706 

0237^7 
001021 
016537 
017704 
062704 
010477 
020427 
101005 
013703 
0603O4 
016514 



015316 
003464 
015472 
003462 
003462 000004 

003464 



003460 
003464 



50217$ 
50221$ 



{BEGIN REPEAT 



50222$ 
50220$ 



JSR 

CLRB 

JSR 

INCE 

CMPB 

BEQ 

TSTB 

BEQ 



PC, BORERS 

URTYER 

PC.REWRT 

RPTCNT 

\PTCNT 

50222$ 

WRTYER 

50221$ 



04 



;REPEAT 



iBACKSPACr./ERASE ONE RECORD 
{CLEAR WRITE RETR> ERROR 
{REWRITE RECORD ON SAME SPOT 
{COUNT REPEATS 
{LIMIT: 4 REPEATS OR RECOVERE 



;END REPEAT 



002207 



003460 
015112 
000003 



OOOOIO 

003460 000001 

002616 003512 

166520 

000002 

166510 

000050 

003512 

003376 



50223$ 



INC 
TSTB 
BNL 
BR 



TSTB 

BEQ 

PRINTB 



RETRYC 
WRTYER 
50223$ 
50216$ 



{COUNT RETRIES 



;EXIT RETRY LOOP IF RECOVERED 



ERCVER 
50225$ 
0BTMSG1, RETRYC, <B,RPTCNT> 



;IFB ERCVER NE $0 THEN 



{PRINT SUSPECTED BAD SPOT 



50225$ 



CLR 


- ( SP ) 


BISB 


RPTCNT,($P) 


MOV 


RETRYC. -(SP, 


MOV 


tffiTMSGl, -(SP) 


MOV 


#3, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


010.SP 



105237 003525 
105037 C03467 
105037 003462 



023727 003460 000004 
001274 





CMP 


RETRYC, $1 




BNE 


50226$ 




MOV 


BTAD0R(R5),BTPT 




MOV 


a6TPT,R4 




ADO 


*2,R4 




MOV 


R4.86TPT 




CMP 


R4.040. 




BHI 


50227$ 




MGV 


BTPT.R3 




ADD 


R3.R4 




MOV 


RECCNT(R5),(R4) 


50227$; 






50226$: 








INCB 


ERSFLG 




CLRB 


RUERR 




CLRB 


RPTCNT 


50224$: 








CMP 


RETRYC, V»4 




BNE 


50217$ 




{END 


RETRY 



;0N FIRST RETRY, LOGG BAD SPOT 

{BTPT IS BOTH TY^e BAD SPOT COUNTER 
{AND THE LOGGING INDEX 



j IF R4 LOS *40. THEN 

STORE FIRST 20 BAD SPOTS 

LET R4 ; - R4 ♦ R3 

LET (R4) :* RECCNT(R5) 



{ERASE FLAG TO ERASE BAD RECORD 

{CANCELL "LOG" ERROR FLAG ON FAILING RET 

{CLEAR REPEAT COUNT FOR NEXT RETRY 



{LIMIT: 4 RETRIES 



I • * 

J* , 
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SF.'i 0088 



2482 

2483 
2484 
2485 
2486 
2487 



2488 
2489 
2490 
2491 
2492 
2493 
2494 
24 95 
2496 
2497 
2498 



2499 



25C0 



015046 
015046 

015052 
015054 
015060 
015062 
015062 
015066 
015072 
0150^4 
015076 

015102 

015102 
015102 

015104 
015106 
015110 

015112 
015115 
015120 
015123 
015126 
015131 
015134 
015137 
015142 
015145 
015150 
015153 
015156 
015161 
015164 
015167 
015172 
015175 
015177 
015202 
015205 
015210 
015213 
015216 
015221 
015224 
015227 
015232 
015235 
015240 
015243 
015246 
015247 
015252 
015255 
015260 



105737 
001413 
105737 
001410 

012746 

012746 
010600 
104414 
062706 



000207 

000000 
000000 
000000 

045 
125 
105 
040 
104 
120 
040 
124 
040 
061 
040 
124 
054 
104 
101 
105 
101 
116 
045 
101 
104 
101 
040 
105 
114 
072 
110 
107 
124 
105 
116 
000 
045 
105 
131 
101 



003464 
00220 7 



015247 
000001 



000004 



101 
123 
103 
102 
040 
117 
101 
105 
045 
045 
122 
122 
040 
Otol 
040 
120 
124 
000 
116 
102 
040 
120 
117 
122 
117 
040 
101 
105 
101 
041 
045 

101 
124 
040 
111 



123 
120 
124 
101 
123 
124 
106 
122 
104 
101 
105 
131 
045 
045 
122 
105 
045 

04^ 
101 
124 
105 
126 
106 
127 
103 
116 
040 
120 
045 
116 

122 

122 
106 
114 



50215$ 



TSTB 


WRTyF.R 


BEQ 


50230$ 


T 3TH 


ERCVER 


BLQ 


50231$ 


PRINTB 


VK3TMSG3 



IFB WRTrER NE HO THEN 
}IFB ERCVER NE #0 THPN 



■PRINT RETRi FAILED 



MOv 


48TM3G3, -TSP; 


MOV 


*t, -CiP) 


MOV 


SP.RO 


TRAP 


CJPNTB 


ADD 


#4 , SP 



50231$ 
50230$ 



WTYCHO 
WTYWRD 
WTYBRF 



RTS 

.WORD 
.UORD 
.WORD 



PC 







STORAGE FOR WRITE CMD WHILE RETRYING 
STORAGE FOR WRITE CMD WORD WHILE RETRYING 
STORAGE FOR WRITE BPCR WHILE RETRtING 



BTMSG1: .ASCIZ /rfASUSPECT BAD SPOT AFTER *D1*A RETRY, *D1*A REPEAT*N/ 



BTMSG2: .ASCIZ /*N*ABAD TAPE OVERFLOW: CHANGE TAPE'*N*N/ 



BTMSG3: .ASCIZ /KARETRY FAILED ON BAD SPOT ., .ERASED !*N/ 
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GLOBAL SUBROUTINES SECTION 



SEQ 0089 



015263 
015266 
015271 
015274 
015277 
015*02 
015305 
015310 
015313 



2501 
2502 
2503 
2504 
2505 
2506 
2507 
2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2516 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
254 7 
2548 



015316 
015324 
015332 
015340 
015346 
015354 
015362 
015366 
015372 
015376 
015402 
015406 
015412 
015414 
015422 
015430 
015436 
015444 
015450 
015454 
015460 
015464 

015470 
015470 



015472 
015500 
015506 
015514 
015522 
015530 
015536 
015544 
015550 
015554 
015560 



105 
117 
102 
040 
117 
056 
122 
105 
045 



013737 
012737 
013737 
042737 
013737 
012737 
005037 
004737 
004737 
004737 
004 737 
105737 
001426 
013737 
012737 
013737 
013737 
004737 
004737 
004 737 
004737 
105037 



000207 



013737 
013737 
013737 
013737 
013737 
013757 
012737 
004737 
004737 
004737 
004737 



104 
116 

101 
123 
124 
056 
101 
104 
116 



003420 
104410 
003420 
004000 
002330 
000001 
003426 
011064 
012054 
012364 
017500 
003525 

003420 
100411 
003420 
002330 
011064 
012054 
012364 
017500 
003525 



003120 
015106 
015104 
002330 
003406 
015110 
000002 
011064 
012054 
012364 
017500 



040 
040 
104 
120 
056 
105 
123 
041 
000 



003424 
003420 
002330 
002330 
003422 
002332 



003424 

003420 
002330 
003422 



003424 
003420 
002330 
003422 
002332 
002336 
003426 



.EVEN 
SUBH TO BACSPACE ONE RECORD 



IF THE ERASE FLAG IS SET, 

INPUTS: ERSFLG 1 

OUTPUTS: 

REGISTERS: 

CALLS j EXCUTE, JOWAIT, CKHAE 



THEN ERASE THAT RECORD 
- DO ERASE 



BORERS 



MOV 


CMDWRD, PCMD WD 


j SET COMMAND TO SPACE REV 


MOV 


OSRR, CMDWRD 


{LET CMOWRD :• *SRR j 


MOV 


CMDWRD, CMDPKT 


{LET CMDPKT :- CMOWRD CLR. 


3IC 


*BRF.C, CMDPKT 




MOV 


CMDPKT.CMDSAV 


;LET CMDSAV :- CMDPKT . 


MOV 


*1, CMDPKT *CP. AOL 


iLET CMDPKT*CP.ADL 


CLR 


CMOLC ;LET CMDLG : - *0 j 


JSR 


PC.CMOAC 


; 


JSR 


PC, EXCUTE 


• 


JSR 


PC.GOWAIT 


> 


JSR 


PC, CKHAE 


> 


TSTB 


ERsiLG 


{WHEN ERASE FLAG IS SET, 


BEQ 


50232$ 




MOV 


CMOWRD. PCMD WD 


{LET PCMDWD j« CMDWRD ; 


MOV 


*ERS, CMDWRD 


{LET CMDWRD :- OF.RS ; 


MOV 


CMOWRD, CMDPKT 


;LET CMDPKT :- CMDWRD ; 


MOV 


CMOPKT.CMDSAV 


{LET CMDSAV :- CMDPKT ; 


JSR 


PC.CMOAC 


• 


JSR 


PC, EXCUTE 




JSR 


PCGOUAIT 




JSR 


PC. CKHAE 




CLRB 


ERSFLG 


{LET ERSFLG :B» 00 



BY OBRF.C 



= #1 



ERASE 



50232* 



REWRT: 



RTS 



PC 



SUBR TO REWRITE A BADLY WRITTEN RECORD 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
JSR 
JSR 
JSR 



CMOWRD, PCMOWD {RESTORE WRITE COMMAND PACKET 
WTYWRD. CMDWRD {LET CMDWRD :- WTYWRD 



UTYCMO, CMDPKT {LET 
CMOPKT.CMDSAV {LET 
DATAWT.CMDPKI tCP.ADL 
WTYBRF,CMDPKT*CP.CNT 
#2. CMDLG {LET 
PC.CMOAC 
PC, EXCUTE 
PC.GOWAIT 
PC .CKHAE 



CMDPKT :- WTYCMO 
CMDSAV :• CMOPKT 

{LET CMDPKT *CP. AOL 
;LET CMDPKT +CP.CNT 
CMDLG i- 02 



DAT AWT 
Wl YBRF 



RE -WRITE RECORD 
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RTS 



5b Q 0090 



2549 


015564 


00020 7 




2550 








2551 








2552 








2553 








2554 








2555 








2556 








£557 








2558 


015566 


105737 


003466 


2559 


015572 


001126 




2560 


015574 


105237 


003466 


2561 


015600 


013704 


003426 


2562 


015604 


005704 




2563 


015606 


001520 




2564 


015610 


162704 


000002 


2565 


015514 


01C502 




2566 


0156!6 


066402 


016052 


2567 


0156^2 


062702 


002626 


2568 


ei>'.^6 


063712 


003416 


2569 


015632 


023737 


002360 003416 


2570 


0l5o40 


101002 




2571 


015642 


163712 


002360 


2572 








2573 


015646 






2574 


015646 


010203 




2575 


015650 


062703 


000010 


2576 








2577 


015654 






25/8 


015654 


021227 


00174 7 


2579 


015660 


003404 




2580 


015662 


162712 


001750 


2581 


015666 


005213 




2582 








2583 


015670 


000771 




2584 


015672 






2585 


015672 


010302 




2586 


015674 


062702 


000010 


2587 


015700 






2588 


015700 


021327 


00174 7 


2589 


015704 


003404 




2590 


015706 


162713 


001750 


2591 
2592 
2593 


015712 


005212 




015714 


000771 




2594 


015716 






2595 


015716 


010203 




2596 


015720 


062703 


000010 


2597 


015724 






2598 


015724 


021227 


00174 7 


2599 


015730 


003404 




2600 


015732 


162712 


001750 


2601 


015736 


005213 




2602 








2603 


015740 


0007/1 




2604 


015742 






2605 


01^742 


105737 


003467 



LOG: : 



50235$ 



50236$ 



50237$ 
50240$ 



50241$ 
50242$ 



50243$ 



PC 



SUBROUTINE TO LOG BYTFS READ/WRITTEN. 

ALSO UPDATES READ/WRITF ERROR COUNTERS. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R3, R4 . 

CALLS: 



TSTB 

BNE 

INCB 

MOV 

TST 

BEQ 

sue 

MOV 
ADD 
ADD 
ADD 
CMP 
BHI 

sue 



MOV 
ADD 



ERLOG 

50233$ 

ERLOG 

CMDLG.R4 

R4 

50234$ 

42, R4 

R5.R2 

BINCCR4) t R2 

#CNTBGN,R2 

BRFCNT,(R2) 

MSGPKTtMS.RFC.BRFCNT 

50235$ 

MSGPKTfMS.RFC,(R2) 



R?,R3 

$10, R3 



; IF DATA ANO ERRORS HAVE NOT BEEN LOGGED THFN: 

;SET LOG DONE '"LAG. 

{GET CURRENT CMD LOGGING CODE. 

j IF THERE IS A CODE THEN: 

; ADJUST THE CODE FOR TABLE INDEX, 
} R2 - ADR OF BYTE COUNT LSW. 



;ADD BRF TO LSW. 
{IF THE RFC IS LOWER OR THE SAME AS ^RF THEN 

{SUBTRACT RFC FROM EXPECTED BRF. 



jR3 - ADR OF 2ND WORD, 



{WHILE (R2) GT 0999. DO 



CMP 
BLE 

SUB 
INC 

BR 

MOV 
ADD 



(R2),0999. 

50237$ 
01000. ,CR2) 
CR3) 



jUPDATF BHt: COUNT 
;LET (R3) •« CR3) * #1 



50236$ 

R3.R2 
010, R2 



jLET R2 := R3 * 010 



{2ND WORD. 



? R2 * ADR OF 3RD WORD. 



{WHILE (R3) CT 0999, DO 



CMP 
BLE 
SUB 
INC 

3R 



(R3),0999. 
5024 1 $ 
OiOOO. ,(R3) 
CR2) 



{UPDATE BYTE COUNT 
{LET (R2) :* (R2) f 01 



50240$ 



{LET R3 j* R2 * $10 



MOV R2,Rj 

ADD 010, R3 

{WHILE CR2) GT 0999. DU 

CMP (R2),6999. 

BLE 50243$ 

SLo 01000., (R2) {UPDATE BYTE COUNT 

INC (R3) {LET (R3) :* (R3'i * 01 



{3RD WORD. 



; R3 « ADR OF 4TH WORD, 



;4TH WORD. 



BR 
TSTB 



50242$ 
RWERR 



{IF R/W ERROR, UPDATE ERROR COUNT, 



N/ 



Gl ORAL AREAS MACRO M1200 20 -MAR -04 08:53 PAGF 17-48 
GLOBAL SUBROUTINES SECTION 



SF.Q 0091 



2606 
230 7 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2625 
2624 



2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
263/ 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 



015746 
015750 
015752 
015756 
015762 
015766 
015770 
015774 

015776 

016000 
016000 
016002 
016006 
016010 
016014 
016016 
016022 
016024 
016024 
016030 
016034 
016040 
016042 
016044 

016050 

016050 



016050 

016050 

016050 

016050 
016050 



016052 
016054 
016056 

016060 
016062 
016064 



001440 
010502 
066402 
062702 
105737 
001404 
062702 
005212 

000424 

005212 
105737 
001020 
105737 
001015 
105737 
001412 

013746 
012746 

012746 
010600 
104414 
062706 



00020/ 



000000 
000040 
000100 

000000 

000020 
000040 



016C60 
002766 
0034 70 

000010 



50245$ 



002213 
003522 
002207 



003460 
005422 
000^02 



000006 



50250$ 
50247$ 

50246$ 
50244$ 
50234$ 
50233$ 

BINC: 

EINC: 



BEQ 


50244$ 






MOV 


R5.R2 


}R2 '■ ADR OP' COUNTER. 




ADD 


EINCCR4).R2 






ADD 


*WRREC,R2 






TSTB 


UNREC 


j IS THE ERROR UNRECOVERABLE? 




BEQ 


5024!>$ 






ADD 


010.RP 


;YES, POINI TO NEXT COUNTER. 




INC 


(R2) 


; UPDATE THE ERROR COUNTER 

jELSE - IF ERROR IS RECOVERABLE: 




BR 


50246$ 






INC 


(R2) 


; UPDATE THE ERROR COUNTER 




TSTB 


IREC 


jir ERROR RECOVERY IS ENABLED: 




BNE 


5024 7$ 






TSTB 


DROPED 


;IF UNIT HAS NOT BEEN DROPPED: 




BNE 


50250$ 






TSTB 


ERCVER 






BEQ 


50250$ 






PRINTB 


0NURTY1.RETRYC 


{PRINT OF RETRIES TO RECOVER 








MOV 


RETRYC. (SP) 






MOV 


0NJRTY1 , -($P) 






MOV 


02. -(SP) 






MOV 


SP.RO 






TRAP 


C$PNTB 






ADO 


*6. SP 



{PROVIDED PRINT HAS BEEN ENABLED 



RTS 

INDEXES 



40 

100 

INDEXES 



20 

40 



PC 

TO BYTE COUNTERS. 



TO READ/WRITE ERROR 



{WRITE. 
;RtAO REV. 
;REAO FWD, 
COUNTERS. 

;URITE. 
{READ REV, 
{READ FWD. 



IF A WRITE/VERIFY COMMAND IS ISSUED. CONTROL IS THEN 
TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 
READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND- 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: VFEXC. 



► " 3 '- J 
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0092 



265 7 
2658 
2659 
2660 
2661 
2662 
2663 

r'*64 

2665 
2666 

266 7 
2668 
2669 
26 '0 
26 71 
26 7 c' 
26/3 
2674 
26 75 
26/6 
2677 
26 78 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2' 87 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
?697 
2698 
2699 
2/00 
2701 
2 702 
2703 
2 704 
2705 
2706 
2707 
2 708 
2 709 
2710 
2711 
2712 
271$ 



016066 
016072 

016074 
016102 
016110 
0161 16 
016122 
016130 
016136 
016144 

016150 
016150 



016152 
016160 
016166 
016172 
016174 

016202 
016202 
016210 
016216 

016222 
016222 
016230 
016232 
016236 
016242 
016242 
016250 
016252 
016260 
016262 
016270 
016272 
016300 
016302 
01S306 
C16310 

016314 

016314 
016516 
Q16316 



10575? 
001426 
013737 
012737 
012737 
O04737 
Oli>737 
012737 
012757 
004737 



000207 



013737 
042737 
105757 
001403 
052737 



013737 
013737 
005037 



023737 
002062 
004737 
004737 

026527 
001442 
032737 
001421 
032765 
001014 
032765 
001406 
105737 
001402 
004737 



000402 
004-737 



003516 

003420 
104401 
000004 
016152 
003420 
104001 
000006 
016152 



003420 
0O40O0 
005520 



002350 
003410 
003412 



003424 
003420 
003426 

003424 
00 3420 
003426 



VKtOATs:TSTH 
BEU 

MOV 
KOV 
MOV 
JSR 
MOV 
MOV 
MOV 
JSP 



VFtTLG 

50251$ 

CMOWRO.PCMOWO 

♦RDR. CMO WRD 

*4,CMDLG 

PC.VTEXC 

CMDWRD.PCMOWD 

•GOT .CMDWflD 

♦6.CMDIC 

D C,VFfcXC 



l IF DATA IS TO BE Vi.RI* Iff): 

»SAVC THE PREVIOUS COMMAND WO»D 

,COMMANO IS READ REV. 

iSET L*> CMO LOGGING INDEX. 

:G0 READ ALL THE RECORDS REV. 

I SAVE THE PREVIOUS COMMAND WORD 

tCOMMANO IS READ Ego. 

iSET L*> CMD 10GGING INDE/. 

jGO READ ALL RECORDS FwD, 



5025 If: 



RTS 



PC 



jRETURN, 



SLSROUTINE TO EXECUTE THE READ AND VF.RIFy, FORWARD OR REVERSE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: CMDAC, EIRSTU, VF1SU, NEXTU, CKHAE. 



002350 
002350 



VFEXCj: 



0100O0 002330 



003422 
002332 



50252 f: 



MOV 

BIC 

TSTB 

BEQ 

BIS 



MOV 
MOV 
CLR 



CM0WR0*CMDPKT 
♦ORE .C.CMDPKT 
SUBFLG 
502521 

*SW8.C # CMDPKT 



iCOMMANO PACKET - READ REV OR EUO. 

j IF PTTE5 ARE TG BE SWAPPED: 
{SET SWAB BIT IN CMO PACKET. 



CMDPKT.CMOSAV 

D AT ARD , CMDPK T ♦ CP ~ ADL 

NCNT 



003412 003414 

011064 

017102 

002604 177777 

00O4OQ 003420 

000^02 003 , J02 

000001 003502 
003524 
016400 



50253f: gUNll.E NCNT LT NCNU DO 
CMP NCNT.NCNT1 

BGE 50254 1 

JSR PC, CMDAC 

JSR PC.EIRSTU 

0255fj »WMILE DEVTBL(R5) NE *ENO DO 



^ 



016400 



502621 ; 
50261 i; 



CMP DtVTBL'*R5).*END 

BEQ 502561 

BTT tMOO.CO.CMDWRD 

BEQ 50257f 

BIT •X0.B0T.C0TFLGCB5) 

BNF. 502601 

BIT ♦X0.E0T,E0TFLGCR5) 

BEQ 502*1? 

TSTB AM T 

BEQ 502 

JSR PC.'-'ISU 



BR 5026 3 » 

JSR PC.VFISU 



i SAVE COMMAND PACKET 1ST wOPO 
jSAVE BUFFER START AOORESS. 

, CLEAR NUMBER OF OPERATIONS. 

j WHILE THERE APE RECORDS REMAINING: 



» STORE CMO ASCII IN ERROR MSG 
,-5ET UP FOR FIRST UNIT. 
iHMILE THERE ARE DEVICES REMAINING: 



}V CMO IS REVERSE THEN: 

jlE NOT AT BOT 

,BUT IF A\ EOT 

jAW ALL OTHERS AT EOT 

jTHtN READ VERIFr 
\IF HOT ALL AT EOT, FREEZE L*IT(S) 

j IF NOT AT BOT ANO 
tNOT AT EOT, READ VE t 



f>, 



[A OH'M AR* m- 



HAfPO HU'OO A- MAP 84 08{M $'Al,f 1/ V.) 



GLOUAl SUBROUTINES SHCUON 
2'14 



Sfj W-il 



15 0163a; 1 



2 716 
271/ 
2718 
2 7 19 
2720 
2*21 

•1-723 
2?24 
2725 
2726 
2 727 
2728 
2 729 
2?30 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
27 38 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2 746 
2747 

2 "'48 
2749 
2750 
2751 
2752 
2753 

;:754 

2 755 
2756 
2 757 
2 758 
2^59 
2 -60 
2761 
2/62 
2763 
2764 
2765 
2 766 
2767 
2768 
2769 
2770 



016322 
016322 
016324 
016324 
016332 
016334 
016342 
016344 

016344 

016350 

016350 
016350 

016354 
016356 

016356 
016362 
016366 

016374 
016376 
016376 



016400 
016404 
016410 
016410 
016414 
016416 

016422 
016424 
016424 
016430 
0164 34 
016436 

016442 
016442 
016446 
016450 
016456 
016460 



000412 

032 765 OOOOOl 

001404 

032 73 7 OOOOOl 

001002 



0O4737 016400 



004737 
000732 

004737 
005237 
013737 

000712 
000207 



013702 
062702 

020^37 
001403 
012742 

0O0772 

004737 
105737 
001002 
0O4737 



105737 
001006 
032765 
001002 
004737 



017150 



017500 
003412 
003420 



003410 
000010 

005410 

177777 



012054 
003522 

012364 



00J522 
000002 
016466 



00 5502 
003420 



003424 



00350^ 



502^3$: 
50260$: 
5025?$i 

50265$; 

50266 $ : 
50264 I s 

50256$: 



50254$: 



VFISU: : 
50267$: 



50270$: 



50271$ j 



BR 

BIT 
BfcU 
BIT 
BNF 



JSR 

JSR 
BR 

JSR 
INC 
MOV 

BR 

RTS 



50264 $ 

*xo.tor,rn T M (j(r c o 

502651 

*CMO CO,CM0URD 

50266$ 



{El'jR If cmd r, NOT RFVERSC 



PCVTISU 

PC.NEXTU 
50255$ 

PC.CKHAE 

NCNT 

CMOWRD,PCMOWD 

50253$ 

PC 



llF NOT AT EOT OR SOT A MuT ION CMC .HEN- 

I ISSUE CMD, CHECK STATUS AND DATA 



jGO FINO THE NEXT UNIT. 



jCHECK FOR HALT AFTER EACH CMD. 
jUPDATL THE RECORD COUNT. 
;SAVE PREVIOUS COMMAND WORD, 



jRETURN. 



SUBROUTINE TO ISSUE COMMANO, AWAIT INTERRUPT, 

CHECK STATUS, CHECK DATA. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: EXCUTE, GOwAIT, CKDATA, 



MOV 
ADD 

CMP 
BEQ 

MCV 

BR 

JSR 
TSTB 
BNE 
JSR 



TSTB 

BNE 

BIT 

BNE 

JSR 



DATAOO.R? 
♦8 R2 

iWHILe'R2 ne oatard do 

R2.DATARD 

50270$ 

♦-1.-CR2) 



jINIT READ BUFFER POINTER. 

lUNTIL 8 BYTES HAVE BEEN SET, 

jINIT READ BUFFER, 



50267$ 

PC. EXCUTE 
DROPED 
50271$ 
PC.GOWAIT 



,C»0 EXECUTE THE COMMAND. 
j IF UNIT HAS NOT SEEN DROPPED THEN: 

iGO WAIT FOR DONE BIT. 



DROPED 

50272$ 

#XO.BOT,nOTFLGCRrO 

50273$ 

PCCKDATA jGO VERIFY DATA, 



I IF UNIT HAS NOT BEEN DROPPED THEN: 

iWHEN NOT REVERSED XNTQ BQT, THEN 



\)K 
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50272$: 



SFO 0094 



2771 


016464 






27~2 








2775 


016464 






27 74 


016464 


000207 




27 75 








27 76 








2 "'-7 








?'78 








2 7 79 








^780 








2781 








2782 








2783 








2784 


016466 


013703 


003416 


2785 


016472 


163703 


002360 


2786 


016476 


005703 




2787 


016500 


001015 




2788 


016502 








016502 


104456 






016504 


000021 






016506 


004430 






016510 


005752 




2789 


016512 








016512 


012746 


005337 




016516 


012746 


000001 




016522 


010600 






016524 


104414 






016526 


062706 


000004 


2790 


016532 


000560 




2791 


016534 






2792 


016554 


020337 


003416 


2793 


016540 


101417 




2794 


016542 








016542 


104456 






016544 


000021 






016546 


004450 






016550 


005752 




2795 


016552 








016552 


013746 


002336 




016556 


012746 


005360 




016562 


012746 


0OO002 




016566 


010600 






016570 


104414 






016572 


062706 


000006 


2796 








2797 


016576 


000556 




2798 


016600 






2799 


016600 


010357 


017076 


2800 


016604 


005357 


017076 


2601 


016610 


005O57 


017100 


2802 


016614 


005O02 




2803 


016616 


013703 


005406 


2804 


016622 


013704 


003410 


2805 


016626 


105737 


003523 


2806 


016632 


001401 




2807 


016634 


000313 




2608 









RT' 



PC 



SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUYERS 
ANO PRINT ERROR MESSAGE ON MISCOMPARE. 

INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 



R2. R3, R4. 

GCMUA 



CKDATA: jMOV 
SL6 



TST 
BNE 
ERRHRO 



BRFCNT.a? 

MSGPKT*MS»RFC # R3 

R3 

50274$ 

17, WTVERM, D7AERM 



; COMPUTE REC LENGTH READ 
j WHEN NO DATA RECEIVED 



PRINTB 0DTAER4 



; COMPARE ROUTINE 



50274$. 



BR 

CMP 
BLOS 



502751 

R3.BRFCNT 
50276$ 



jPRINT ERROR ANO EXIT 




TRAP 


CtERHRO 


.WORD 


17 


.WWD 


WTVERM 


.WORD 


DTAERM 


MOV 


0OTAER4, (SP) 


MOV 


•l.-(SP) 


MOV 


SP,R0 


TRAP 


CiPNTB 


ADD 


04.SP 



jWHEN REC HEAD IS LONGER 



ERRHRD 17, WTVERM, DTAERM 



PRINTB *0TAER5.CMDPKT*CP.CNT 



BR 



50277$ 



j THAN EXPECTED, PRINT 






1RAP 


CiERHRO 




.WORD 


17 




.WORD 


WTVERM 




.WOSD 


DTAERM 




j AN ERROR MESSAGE 






MOV 


CMDPKT*CP.CNT, 


-CSP) 


MOV 


♦0TAER5. -CSP) 




MOV 


♦2, -CSP) 




MOV 


SP,RO 




T^AP 


Cfi'NTB 




ADD 


*6,SP 




jANO EXIT ROUTINE 







50276$: 




MOV 


R3.CK0CNT 


DEC 


CKDCNT 


CLR 


CKDFF 


CLR 


P2 


MOV 


DATAWT,R3 


MOV 


DATARD.R4 


TSTB 


USUB 


be a 


50300$ 


SWAB 


CR3) 



jSAVE VERIFICATION LENGTH - 1. 

iCLEAP OF BYTES IN ERROR COUNTER, 

iINIT BYTE COUNTER 

iGET WRITE BUFFER ADORESS. 

iGET REAO t JFFER ADORESS. 

;when running testi-sub 12, 

tswap first word of wpt bfr 
j which contains the record count 
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SEG 0095 



2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2319 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2528 
2829 
2830 
2831 
2832 



2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 



2841 
2542 
28*3 
2844 
2*45 
2846 
284 7 
2848 
2849 
2850 
2851 



016636 

016636 
016636 
016642 
016644 
016650 
016652 
016660 
016662 
016664 

016666 

016666 

016666 
016666 
016670 
016672 
016676 
016700 
016704 
016710 
016710 
016712 
016714 
016716 

016720 

016724 
016730 
016736 
016742 
016750 
016756 
016760 
016760 
016762 
016766 
016770 
016774 
016776 
017002 
017006 
017010 
017012 
017016 

017016 

017020 
017022 
017024 
017030 
017032 
017036 
017042 
017044 



020237 017076 

001011 

105737 003520 

001406 

032737 000001 017076 

001002 

105723 

105724 



121314 
001452 
005737 
001010 
005265 
005265 

104456 
000021 
004430 
005752 
005237 
111437 
042737 
111337 
042737 
023727 
002017 

005046 
153716 
005046 
153716 
010246 
012746 
012746 
010600 
104415 
062706 



105723 
105724 
105722 
020237 
003702 
005237 
005737 
001414 



50300$ 
50301« 



j REPEAT 



CMP 

BNE 

TSTB 

BEQ 

BIT 

BNE 

TSTB 

TSTB 



50304$ 
50303$ 
50302$ 



017100 

003346 
003356 



017100 

003436 

177400 003436 

003440 

177400 003440 

017100 000013 



003440 
003436 



2$: 



CMPB 

BEQ 

TST 

BNE 

INC 

INC 

ERRHRD 



INC 
MOVB 
BIC 
MOVB 

Bir 

CMP 
BGE 
PRINT/ 



005226 
00OO04 



000012 



R2, CKDCNT 

50302$ 

SWBFLG 

50303$ 

OBITOO, CKDCNT 

50304$ 

CR3)* 

lR4)* 



j REPEAT UNTII ALL DATA IS COMPARED 
J IE THIS IS THE LAST ByTF. THEN; 

;if byte swapping is enabled then: 

j if record length is odd then: 

jlast byte will be in 
;the upper byte. 



(R3),(R4) 

3$ 

CKDFF 

2$ 

VFYCNT(R5) 
HRDCNTCR5) 
17,WTVERM,DTAERM 



CKDFF 



;ARE THEY EQUAL. 

;BR IF SO. 

jl ST TIME THRU? 

jBR IF NOT. 

{INC THE VERIFr ERROR COLNTER. 

;INC THE HARD ERROR COUNT. 

{REPORT WRITE/VERIFY ERROR. 

TRAP 

.WORD 

.WORD 

.WORD 

BYTES 



O OF 



CKDFF, LET CKDFF :- 

CR4) # TIME1 

0177400, TIME1 

(R3).TIME2 

♦177400, TIME2 

CKDFF, Oil, 

50305$ 

00TAER2,R2,<B,TIME1>.<B,TIME2>, PRINT ACTUAL 6 



IN 



C$ERHRD 
17 

WTVERM 
DTAERM 
ERROR. 



♦ 01 j INCREMENT 
;SAVE WAS DATA FOR TYPQUT. 
{CLEAR GARBAGE. 

{SAVE SHOULD BE DATA FOR TYPOUT 
{CLEAR GARBAGE. 
i IF ERROR BYTE COUNT IS LESS THAN 11 



EXPECTED 


OATA 


CLR 


-CSP) 


BISB 


TIM€2.(SP) 


CLR 


-(SP) 


BISB 


TIME!, CSP) 


MOV 


R2. CSP) 


MOV 


00TAER2,-CSP) 


MOV 


04 , - C SP ) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


012. SP 



017076 

017076 
017100 



50305$; 






3$: 


TSTB 


CR3)» 




TSTB 


CR4)* 




TSTB 


CR2V 




CMP 


R2, CKDCNT 




BLE 


50301$ 




INC 


CKDCNT 




TST 


CKDFF 




BEQ 


50306$ 




PRINTB 


0DTAER3, CKDFF .CKDCNT 



{UPDATE WRITE BUFFER ADDRESS. 

{UPDATE READ BUFFER ADDRESS. 

{UPDATE BYTE COUNTER. 

{END OF DATA COMPARE REPEAT LOOP. 

j CKDCNT EQUALS RECORD LENGTH. 

{IF COMPARE ERROR HAS OCCURED THEN 

{PRINT OF BYTES IN ERROR. 



« 
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2652 
2853 
2854 
2855 
2856 
2357 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
286 S 
2869 
2670 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 

2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
288? 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 



017O44 
017050 
017054 
017060 
017064 
017066 
017070 

017074 

017074 

017074 
017074 

017076 
017100 



017102 
017106 
017110 
017116 
017120 
017124 
017126 
017126 
017134 
017136 
017136 

017140 
017140 
017146 



017154 
017154 
017160 
017166 
017170 
017176 



013746 
013746 
012746 
012746 
010600 
104414 
062706 



000207 

000000 
OOCOOO 



105037 
005005 
026527 
001003 
062705 
000771 

026527 
001001 

104444 



016537 
000207 



062705 

026527 
001772 
016537 
000207 



017076 
017100 
005275 
000003 



000010 



503061 
50277$ 
50275$ 



CKDCNT 
CKDFFj 



003522 



002604 
000002 



FIRSTU 
177774 50307$ 



002604 177777 



50310$ 



002604 002074 



50311$ 



017150 105037 003522 



000002 
002604 

002604 



NEXTU: 
50312$ 



177774 
002074 





SFQ 0096 


MOV 


CKDCNT, -CSP) 


MOV 


CKDFF.-CSP) 


MOV 


0DTAER3,-CSP) 


MOV 


A3.-CSP) 


MOV 


SP,R0 


TRAP 


CiPNTB 


ADD 


#10,3P 



RTS 

.WORD 
.UORD 



PC 







{OTHERWISE, RETURN. 

;* OF BYTES TO BE VERIFIED -1. 
10 OF BYTES IN ERROR COUNTER. 



SIBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 

INPUTS; 

OUTPUTS: 

REGISTERS: 

CALLS: 



CLRB 
CLR 
CMP 
BNE 
ADD 
BR 

CMP 
BNE 
DOCLN 



MOV 
RTS 



DROPED jCLR UNIT DROPPED FLAG 

R5 ; CLR DEVICE POINTER. 

DEVTBLCR5),*NINUSE {WHILE DEVICES ARE NOT IN USE: 

50310$ 

♦2,R5 {LET R5 :« R5 ♦ 02 {POINT TO NEXT DEVICE. 

50307$ 



DEVTBL(R5),*END 
50311$ 



DEVTBL(R5).L$LUN 
PC 



j IF ALL UNITS HAVE BEEN DROPPED THEN: 

{DO CLEAN CODE AND TERMINATE PASS. 

TRAP C$DCLN 



}SET UNIT * IN "HEADER" F0« ERROR REPORT 
{RETURN WITH 1ST DEVICE IN R5. 



SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS; 



CLRB DROPED 
{REPEAT 

ADD *2,R5 

CMP DEVTBLCR5 ) , *NINUSE 

BEQ 50312$ 

MOV DEVTBL(R5),L$LUN 

RTS PC 



tCLR UNIT DROPPED FLAG 

{REPEAT UNTIL THE NEXT DEVICE IS FOUND. 

{UPDATE DEVICE TABLE POINTER. 
{UNTIL DEVTBLCR^) NE ONINUSE 

{SET UNIT IN "HEADER" FOR ERROR REPORT 
{RETURN. 



O; 
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SEQ 0097 



2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2910 
2919 
2920 
2921 
2922 
2923 
2924 
2925 



2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 

2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 

2947 
2948 
2949 
2950 
2951 



017200 
017204 
017210 
017214 
017220 
017222 
017222 
017226 
017230 
017234 

017240 

017242 
017242 
017250 
017254 
017260 
017264 
017266 
017266 
017270 
017272 
017274 

017276 
017300 
017300 

017304 
017304 
017310 
017312 
017316 

017322 
017322 
017322 
017324 

017330 
017332 

017?>36 

017336 
017344 
017350 
017350 



017352 
017360 
017362 



005265 
013704 
042704 
016503 
005002 

020227 
001405 
012723 
062702 

000770 

012775 
004737 
004737 
020427 
001005 

104455 
000020 
004 753 
006120 

000402 

004737 



105737 
001404 
105237 
004737 



104424 
005765 
001402 
005365 



013737 
013700 

104451 



026527 
001410 
105737 



SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS; 

REGISTERS; 

CALLS: MOVMSG. PRXST, LOG 



003366 
002370 
000377 
002544 



000020 

177777 
000002 



002340 002514 
012700 
012734 
157400 



DROPUj 



50313$ 



iLCRfcMENT THE FATAL ERROR COUNT, 
>GET UDIAG ERROR CODE FROM XSTAT3. 



FTLCNTCR5) 

MSGPKT>MS.XS3,R4 

#377, R4 

MSGPKACR5),R3 jAOR OF THIS UNIT'S MSG PACKET. 

1 00 ;CLR COUNTER. 

j WHILE THERE ARE MORE LOCATIONS: 



INC 

MOV 

BIC 

MOV 

CLR R2 jLET R2 

{WHILE R2 NE #MSGCNT DO 



50314$ 



CMP R2,*MSGCNT 

BEQ 50314$ 

MOV $-l.(R3)* 

ADD $2,R2 {LET R2 

BR 50313$ 

MOV OGSCPK.QTSDBCRS) 

JSR PC.WSSR 

JSR PC, MOVMSG 

CMP R4,*X3.RNY 

BNE 50315$ 

ERRDF 16.RNYM.STAERM 



017412 



003465 

003522 
015566 



003326 
003326 



003534 017410 
003534 



002604 177774 
002213 



50315$: 


BR 
JSR 


50316$ 
PC. PRXST 


50316$: 


TSTB 
BEQ 
INCB 
JSR 


RECLOG 
50317$ 
DROPEO 
PC, LOG 


50317$: 


DORPT 




DROPUA: 


TST 
BEQ 
DEC 


PASCNUR5) 

50320$ 

PASCNTCR5) 


50320$: 


MOV 
MOV 

DODU 


TSNP.OPOPN 

TSNP,RO 

RO 




CMP 
BEQ 
TSTB 


DEVTBLCR5),0NINUSE 

50321$ 

IREC 



iINIT THE MSC PACKET WITH ALL l'S 
R2 ♦ &2 ; UPDATE COUNTER. 



{INITIATE A GET STATUS COMMAND. 
{UAIT A WHILE FOR SSR-1 
{MOVE MSG PACKET TO COMMON AREA. 
{IF WE HAVE A CAPSTAN RLNAWAY THEN: 

{REPORT CAPSTAN RUNAWAY WITH TACH CNT. 

TRAP C$ERDF 
.WORD 16 
.WORD RNYM 
.WORD STAERM 

{ELSE -IF NOT A RUNNAWAY: 



{PRINT EXTENOED STATUS REGISTERS. 



j IF THE RECORD HAS BEEN LOGGED THEN 

{SET UNIT DROPPED FLAG, 

{LOG DATA BYTES ♦ RD/WR ERRORS. 



{PRINT PERFORMANCE REPORT 

TRAP 
{IF PASCNTCR5) NE 00 THEN 

jLET PASCNTCR5) :« PASCNT(R5) - #1 



C$ORPT 



;SAVE * OF UNIT TO BE DROPPED. 
iRO-LOGICAL DEVICE NU1BER 
{DROP THE LNIT 

TRAP C$DODU 

lEXEC BGNDU-ENDDU CODE IF IDU * 

{IF UNIT NOT DROPPED 

sIF RECOVERY IS ENABLED THEN: 



H« 
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SEQ 0098 



2952 


017366 


001005 




2953 


017370 


000240 




2954 


017372 


000240 




2955 


017374 


000240 




2956 


017376 


105237 


003526 


2957 








2958 


017402 






2959 








2960 


017402 






2961 


017402 


105237 


003522 


2962 


017406 


000207 




2963 








2964 


017410 


000000 




2965 








2966 








2967 








2968 








2969 








2970 








2971 








2972 


017412 








017412 


012746 


005507 




017416 


012746 


000001 




017422 


010600 






017424 


104415 






017426 


062706 


000004 


2973 


017432 








017432 


013746 


002372 




017436 


013746 


002370 




017442 


013746 


002366 




017446 


013746 


002364 




017452 


013746 


002362 




017456 


012746 


006753 




017462 


012746 


000006 




017466 


010600 






017470 


104415 






017472 


062706 


000016 


2974 


017476 


000207 




2975 








2976 








2977 








2978 








2979 








2980 








2981 








2982 


017500 


105737 


002206 


2983 


0175O4 


001430 




2984 


017506 


105737 


003531 


2985 


017512 


001023 




2986 


017514 








017514 


104450 




298" 


017516 








017516 


103023 




2988 


017520 


013704 


003420 


2989 


017524 


004737 


011136 


2990 


017530 


112337 


004 506 


2991 


017534 


112337 


004307 



50322$ 

50321i 
ORORTN 



BNfc 
NOP 
NOP 
NOP 
INCB 



INCB 
RTS 



503225 



STAFLG 



DROPED 
PC 



DROPNt .WORD 



; 



CKHAE: 



j SET START FLAG TO ENABLE REWIND, 



j SET UNIT DROPPED FLAG. 
{RETURN. 

;0 OF UNIT TO BE DROPPED 



SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



PRXST*: PRINTX 0GETSTM 



MOV 

MOV 

MOV 

TRAP 

ADD 



*GETSTM, -CSP) 

01,-CSP) 

SP.RO 

CfPNTX 

*4,SP 



PRINTX $STAt.R5 t MSGPI<T*MS.XS0,MSGPKT*MS.XSl,nSGPI<T*MS.XS2,MSGPKT*MS.XS3,MSGPKT*MS.'S 

MOV MSGPKT*MS.XS4. -CSP) 

MOV MSGPKWMS.XS3, -CSP) 

MOV MSGPKUMS.XS2, -CSP) 

MOV MSGPKUMS.XS1. -CSP) 

MOV MSGPKTfMS.XSO, -CSP) 

MOV *STAER5, -CSP) 

MOV *6,-CSP) 

MOV SP,RO 

TRAP C*PNTX 

ADD 016 ,SP 
RTS PC 

SUBROUTINE TO HALT AFTER EACH COMMAND, 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 

TSTB HAEjIFB HAE NE <K) THEN 

BEQ 50323* 

TSTB MISCFG } IFB MISCFG EQ 00 THEN 

BNE 50324$ 

MANUAL |IS MANUAL INTERVENTION ALLOWED? 

TRAP C$MANI 

BNCOMPLETE CKHRTN jBR IF NOT. 

BCC CKHRTN 

MOV CM0WRD.R4 ;LET R4 :- CMOWRD j COMMAND WORD. 

JSR PC.GCMDA ; FETCH ADR OF CMO ASCII. 

MOVB (R3)*,HALTM -MOVE CMO ASCII 

MOVB CR3)f .HALThfl ;LET HALTM+1 : B- CR3)* 



{IF HALT FLAG IS SET: 

i 



Ttt 
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SEC3 0099 



2992 


017540 


111337 


004310 


2993 


017544 








017544 


104443 






017546 


000404 






017550 


003436 






017552 


000130 






017554 


004306 






017556 


000001 






017560 






2994 


017560 






2995 








2996 


017560 


000402 




2997 


017562 






2998 


017562 


105037 


003531 


2999 








30O0 


017566 






3001 








3002 


017566 






3003 


017566 


000207 




3004 








3005 








3006 


017570 






3007 








3003 








3009 








3010 








3011 








3012 








3013 








301-1 








3015 








3016 








3017 








3018 


017570 
017570 






3019 


017570 


010537 


003452 


3020 


017574 


004737 


017102 


3021 


017600 






3022 


017600 


026527 


002604 


3023 


017606 


001562 




3024 


017610 








017610 


016546 


003376 




017614 


016546 


003326 




017620 


016546 


002604 




017624 


012746 


020432 




017630 


012746 


OC0004 




017634 


010600 






017636 


104416 






017640 


062706 


000012 


3025 


017644 








017644 


016546 


002626 




017650 


016546 


002636 




017654 


016546 


002646 




017660 


016546 


002656 




017664 


012746 


0205C7 




0.W670 


012746 


000005 




017674 


010600 





MOVB CR3),HALTM*2 

GMANIL HALTM.TIME1.1.YES 



•INTO MESSAGE. 

{HALT - WAIT TOR AN OEPRATOR INPUT. 



TRAP 


C$GMAN 


BR 


10000$ 


. WORD 


TIME1 


, WORD 


MCODt 


.WORD 


HALTM 


.WORD 


1 



10000$; 
10000$: 






50324$: 


BR 
CLRB 


50325$ 
MISCFG 


50325$: 






50323$: 
CKHRTN: 


RTS 

.EVEN 


PC 



{LET MISCFG :B 3 00 



:RETURN 



ENDMOD 



.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



177777 



L$RPT: 



50326$ 



BGNRPT 

MOV 

JSR 

l WHILE 

CMP 

BEQ 



R5.R55AVE 
PC.FIRSTU 
DEVTBLCR5) NE OENO 
DEVTBL(R5),0ENO 
50327$ 



DO 



;SAVE CURRENT DEVICE POINTER. 

:FIND THE EIRST UNIT. 

{WHILE THERE ARE MORE DEVICES 



PRINTS 



*RPT1A,DEVT8L(R5),PASCNT(R5),RECCNT(R5) 



PRINTS 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



RECCNTCR5),~(SP) 

PASCNT(R5). -(SP) 

DEVTBL(R5),~(SP) 

*RPT1A, (SP) 

*4,~(SP) 

SP,R0 

C$PNTS 

*12.SP 



*RPTlB,WRBC*30(R5),WRBC + 20CR5),WRBCa0(R5).WRBCCR5) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



WRBCCR5).-CSP) 
URBO10CR5), -(SP) 
WRBC*20(R5). (SP) 
WRBO30CR5), -(SP) 
*RPTlB t -(SP) 
05, (SP) 
SP.RO 
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REPORT COOING SECTION 



3026 



3027 



3028 



3029 



3030 
3031 
3032 
3033 
3034 
3035 



3036 
3037 



017676 
017700 
017704 
017704 
017710 
017714 
0177^0 
017724 
017730 
017734 
017736 
017740 
017744 
017744 
017750 
017754 
017 760 
017764 
017770 
017774 
017776 
02O0OO 
020OO4 
020004 
020010 
020014 
020020 
020024 
020030 
020032 
020054 
020O40 
020O40 
020044 
020050 
020054 
020060 
020064 
020O66 
020070 
020074 
020100 
020102 

020106 
020106 
020106 
020112 

020116 
020122 
020126 
020132 
020136 
020140 
020142 
020146 



104416 
062706 

016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012745 
0127/6 
010600 
104416 
062706 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 
105737 
001402 
00473? 



016546 
016546 
036546 

016546 
012746 
012746 
OJL0600 
104416 
062706 
004737 
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000014 

002666 
002676 
002706 
002716 
020560 
000005 



000014 

002726 
002 736 
002746 
002756 
020631 
000005 



OO0014 

003026 
003006 
002766 
020735 
000004 



000012 



003036 
003016 
002776 
021006 
000004 



000C12 
002210 



020164 



0033-16 
003366 
003356 
003336 
021203 
000005 



000014 
0P150 



50330$: 









SEQ 0100 






TRAP 


C$PNTS 






ADO 


014. SP 


PRINTS URPT1C, 


( RRBC»3O(R5),RPBC*20CR5),RRBC»10CR5),;?RBC(R5) 






MOV 


RRBCCR5), -CSP) 






MOV 


RRBC*10(R5). CSP J 






MOV 


RRBC*20CR5), f 3P ) 






MOV 


RRBC*30CR5), -CSP) 






MOV 


0PPT1C, -(SP) 






MOV 


#5, -(SP) 






MOV 


SP.RO 






TRAP 


CIPNTS 






ADD 


014, SP 


PRINTS 6RPT1D, 


l RFBC*30(R5),RFBC*20(R5),RFBC^10(R5).RFBC(R5) 






MOV 


RFBCCR5),-(SP) 






MOV 


RFBC*10CR5).-CSP) 






MOV 


RFBC*20CR5), -CSP) 






MOV 


RFBC*30CR5), -CSP) 






MOV 


0RPT1D, -CSP) 






MOV 


05, -CSP) 






MOV 


SP,RO 






TRAP 


CIPNTS 






ADD 


014 ,SP 


PRINTS 0RPT1F, 


,WRRECCR5),RRREC(R5),RFREC(R5) 










MOV 


RFRECCR5),-CSP) 






MOV 


RRRECCR5),-CSP) 






MOV 


WfJRECCR5),-CSP) 






MOV 


OftPTIF, -CSP) 






MOV 


04, -CSP) 






MOV 


SP.RO 






TRAP 


CtPNTS 






ADD 


012, SP 


PRINTS 0RPT1G, 


, URUNRC R5 ) , RRUNRC R5 ) .RFUNRC R5 ) 










MOV 


RFUNRCR5),-CSP) 






MOV 


RRLNRCR5).-Cf>P) 






MOV 


WRUNRCR5),-CSP) 






MOV 


0RPT1G.-CSP) 






MOV 


04, -CSP) 






MOV 


SP,RO 






TRAP 


C$PNTS 






ADD 


012, SP 


TSTB BADTSW } IFB 


BADTSW NE £0 THEN 


• 




BEQ 50330* 








JSR PC.BTRPT 


}G0 PRINT BAD TAPE SPOTS WHEN 


ENABLED 




PRINTS 0RPT1I 


,SCCNT(R5),HRDCNT(R5),FTLCNTCR5) 


,VFYCNT(R5) 






MOV 


VFYCNTCR5), -CSP) 






MOV 


FTLCNTCR5),-(SP) 






MOV 


HRDCNTCR5), -CSP) 






MOV 


SCCNTCR5).-(SP) 






MOV 


0RPT1I. CSP) 






MOV 


05. -CSP) 






MOV 


SP,RO 






TRAP 


CSPNTS 






ADD 


014, SP 



JSR PC.NEXTU 



jFIND THE NEXT UNIT. 



Ktf 
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3038 


020152 


000612 




3039 


020154 






3040 


020154 


013705 


003452 


3041 


020160 








020160 


000167 






020162 


001130 




3042 








3043 








3044 








3045 








3046 








304 7 








3048 


020164 








020164 


016546 


013316 




020170 


012746 


021057 




020174 


012746 


000002 




020200 


01C600 






020202 


104416 






020204 


062706 


000006 


3049 


020210 


016537 


002616 


3050 


020216 


017703 


163270 


3051 


020222 


006203 




3052 


020224 








020224 


010346 






020226 


012746 


021107 




020232 


012746 


000002 




020236 


010600 






020240 


104416 






020242 


062706 


000006 


3053 


020246 


005703 




3054 


020250 


001457 




3055 


020252 


020327 


000024 


3056 


020256 


101402 




3057 


0202' • 


012703 


000024 


3058 








3059 


020264 






3060 


020264 








020264 


012746 


005744 




020270 


012746 


000001 




020274 


010600 






020276 


104416 






020300 


062706 


0O00O4 


3061 


020304 


013704 


003512 


3062 


020310 


062704 


000002 


3063 


020314 


005002 




3064 


020316 






3065 


020316 








020316 


011446 






020320 


012746 


021174 




020324 


012746 


000002 




020330 


010600 






020332 


104*16 






020334 


062706 


000006 




020340 


005202 




■ i 


020342 


062704 


000002 


.•008 


020346 


02022 7 


000012 


3069 


020352 


001014 





SEQ 0101 



50327$: 



BR 

MOV 
EXIT 



50326$ 

R5SAVE.R5 
RPT 



{RESTORE CURRENT DEVICE POINTER. 



.WORD 
.WORD 



J$JHP 
L10010-2 



SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 

BAD TAPE SPOTS: COUNT PER TAPE PASS ONLl . NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 



BTRPT:: PRINTS 0RPT1E , WRTYCTCR5) 



003512 



MOV 
MOV 
ASR 
PRINTS 



BTADDR(R5),BTPT 

3BTPT,R3 

R3 

0RPT1J.R3 



{PRINT GLOBAL WRITE RETRY COUNT 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

;BTPT IS BOTH THE BAD TAPE SPOT 

{AND THE LOGGING INDEX 



WRrYCT(R5),"CSP) 

0RPT1E. -CSP) 

#2 , •- ( SP ) 

SP.RO 

C$PNTS 

06, SP 

COUNTER 



{PRINT OF BAD TAPE SPOTS 



1ST 

BEQ 

CMP 

BLOS 

MOV 



R3 

50331$ 
R3.020. 
50332$ 
$20, ,R3 



{PRINT RECORD IF BAD 
IF R3 HI 020. THEN 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
SPOTS 



R3.-ISH) 
0RPT1J,~(SP) 
02. -CSP) 
SP.RO 
C$PNTS 
06, SP 
DETECTED 



50332$ 



PRINTS 



OCRLFSP 



50333$ 



MOV 
ADD 
CLR 

{REPEAT 
PRINTS 



BTPT.R4 
02. R4 
R2 



20 BAD SPOTS IS THE LIMIT 



MOV 
MOV 
MOV 
TRAP 
ADD 
SPOT ID 



{LET R4 •* BTPT * ,>2 {FETCH A BAD 



OCRLFSP, -(SP) 
0.1, (SP) 
SP.RO 
CJ-PNTS 
04, SP 



R2 - PRINT COUNT PER LINE: 10 MAX 



0RPT1K,(R4) 



{PRINT A BAD SPOT ID 



INC 
ADD 
CMP 
BNE 



R2 
02, R4 

R2,010. 

50334$ 



LET 
LET 
IF 



R2 
R4 
R2 



EQ 



' R2 
■ R4 
010. 



01 

02 

THEN 



COUNT 
NEXT 



PRINTS 



MOV CR4). CSP) 

MOV ORPTIK.-(SP) 

MOV 02, (SP) 

MOV SP.RO 

TRAP C$PNTS 

ADD 06 , SP 



:6 
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SEQ 0102 



3070 



3071 
3072 
3073 

3074 
3075 
3076 
3077 
3078 
3079 



3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 



3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 

3103 
3109 
3110 
3111 
LLER 
3112 
3113 



020354 
020354 
020360 
020364 
020366 
020370 
020374 
020400 

020404 
020404 
020406 

020410 
020410 
020410 
020414 
020420 
020422 
020424 
020430 



020432 
020507 
020560 
020631 
020701 
020735 
021006 
021057 
021107 
021174 
021203 
021257 



021314 
021314 
021314 



021316 

021316 

021316 
021320 
021322 

021324 



012746 
012746 
010600 
104416 
062706 
162703 
162702 



020203 
001343 



012746 
012746 
010600 
104416 
062706 
000207 



045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 



104425 



000000 
177777 

177777 



005744 
000001 



000004 
000012 
000012 



005/41 
000001 



000004 



116 
101 
101 
101 
123 
101 
101 
101 
116 
104 
101 
123 



045 
102 
102 
102 
062 
122 
125 
127 
045 
065 
123 
063 



50334$ 



50331$ 



RPT1A 
RPT1B 

RPT1C 
RPT1D 

RPT1F 
RPT1G 
RPT1E 
RPT1J 
RPT1K 
RPT1I 



LlOOlO 



PRINTS 0CRLFSP 



;G0 TO NEXT PRINT LINE 



SUB 
SUB 



CMP 
BNE 



#10. ,R3 
#10. .R2 



R2.R3 
50333$ 



{LFT 
{LET 



R3 
R2 



" R5 
- R2 



it 10. 
#10. 



{UNTIL R2 EQ R3 



PAST 10 PRINT 3 
MOV flCRLFSP. -CSP) 

MOV $1, CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADO 44 f SP 
; ADJUST BAD SPOT COUNT 
{ADJUST PRINT COUNT 



j LIMIT: # OF BAD SPOTS 



PRINTS flCRLF 



RTS PC 

.NLIST 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 

.Ascrz 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.LIST 

.EVEN 

ENDRPT 



MOV 


<XRLF, -CSP) 


MOV 


♦ 1. -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTS 


ADD 


04 f SP 



BEX 

/*N#N*ALNIT #D1*S3#APASS:*D5#S3*AREC0RD:*D5*N/ 

/rfABYTES WRITTEN *D3*A>Z3*A.tfZ3*A.rfZ3rfN/ 

AiABYTES READ REV *D3*A,*Z3#A,*Z3#A>Z3#N/ 

/KABYTES READ FWO *D3*A # *Z3*A>Z3*A ,*Z3*N/ 

/*S23*AWRT#S4*ARDRi<S4*ARDFrfN/ 

/#ARECOVERABLE ERRORS *D5*S2*D5*S2*D5*N/ 

/^UNRECOVERABLE ERRORS *D5*S2*D5*S2*05*N/ 

/*AW*ITE RETRIES*53#D5#N/ 

/#N#02*A BAD SPOTS THIS TAPE PASS PRECEDING RECORD #:/ 

/*D5*S1/ 

"rfASPEC C0ND*S3rfAHARD*S3*AFATAL*S3*AC0MPARE*N" 

/#S3*D5*S3*D5i<S3rfD5HS3tfD5*Ni<N/ 

BEX 



TRAP 



C$RP' 



.SBTTL LOAD DEVICE PROTECTION TABLE 



TABLE FOR SUPERVISOR TO IDENTIFY THE P TBI. FOR THE LOAD DEV 

THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 



L$PROTj: 



BGNPROT 



.WORD C 
.UORD -i 
.WORD -1 

ENDPROT 



jP TBL OFFSET OF TSDB 

;P -TBL OFFSET OF MASS BUS UNIT 0: -1 

iP-TBL OFFSET OF DRIVE 0: -1 - NONE, 



* NOT A MASS BUS DE 
THREE DRIVES PER CONTRO 



M« 



MISCFL.l ANt.Ol'S SECT TONS 
INITIALIZE SELTION 



3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 



3122 
3123 



3124 
312b 
3126 
3127 



3128 



3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
313^ 

3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 



021324 
021324 

021324 
021324 
021330 
021334 
021340 
021344 
021346 

021352 
021360 
021362 
021362 
021364 
021366 
021370 
021372 
C21372 
021376 
021400 
021404 
021406 
021412 
021414 
021420 
021422 

021424 

021424 
021430 
021432 
021436 
021440 
021440 
021444 
021446 
021452 

021456 
021460 

021460 

021460 
021464 
021466 



012746 
012746 
012746 
012746 
104437 
062706 

032727 
001421 

104454 
000001 
004 346 
000000 

012727 
000000 
013727 
000000 
00536 7 
001375 
005367 
001367 
000753 



105737 
001413 
105037 
005002 

020227 
001405 
005062 
062702 

000770 



10573 > 

001406 
012737 
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SEQ 0103 



.SBTTL INITIALIZE SECTION 



THE INITIALIZE SECTION CONTAINS THE CODING THAT JS PERFORMED 
AT THE BEGINNING OF EACH PASS. 



LSINIT;: 



BGNINIT 



000340 
170000 
000140 
000003 

000010 

000003 



SETVEC #140,4170000,4340 



jODT ROM ADDRESS 





}JB REV A-0 


MOV 


4340, -CSP) 


MOV 


4170000. -(SP) 


MOV 


4140, (SP) 


MOV 


43, -CSP) 


TRAP 


CISVEC 


ADD 


MO.SP 



002330 



INITIO; BIT 

BEG 



4BIT0!BIT1,4CMDPKT 
50335$ 



000310 
002116 
177772 
177756 



ERRSF l.CMDPKM 



DELAY 200. 



IF CMD PACKF.T IS NOT ON MODULO 4 BOUNDRY: 
{PRINT ERROR MSG, 



BR 



INITIO 





TRAP 


C*ERSF 




.WORD 


1 




.WORD 


CMDPKM 




.WORD 





s 60 TO SUPERVISOR, 


WAIT 2 SECONDS. 




MOV 


4200. .(PC)* 




.WORD 







MOV 


L$DLY,(PO* 




.WORD 







DEC 


-6CPC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


. -20 



002204 
002204 

000550 

002626 
000002 



002205 
153624 



003432 



50335$; 








TSTB 


CLRFLG 




BF.Q 


50336$ 




CLRB 


CLRFLG 




CLR 


R2 { 


50337$: 


{WHILE R2 NE 4CNT 




CMP 


R2.4CNTLEN 




BEQ 


50340$ 




CI R 


WRBCCR2) 




ADD 


42, R2 




BR 


50337$ 


50340$ j 






50336$; 








TSTB 


RrtANV 




BEQ 


50311$ 




MGV 


ORANBC , RANB 



;LET R2 :» 40 



j IF CLR COUNTERS FLAG SET; 
ilNIT CLR FLAG. 



;CLR ALL STATISTICAL COUNTERS. 
{LET R2 ;» R2 + 42 



{IF RESET RANDOM VARIABLE FLAG IS SET THEN; 
{RESET RANDOM BASE fr. 



Ntt 
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INITIALIZE SECTION 



SEQ 0104 



3152 
3153 

3154 


021474 


012737 


032561 003434 




MOV 


tfRANSC.RANS 








{RESET RANPOM SAVE LOCATION. 




021502 






50341$: 


















3155 


021502 








READEF 


#EF. START 








{READ STAR,' COMMAND EVENT FLAG. 






021502 


012700 


000040 
















MOV 


0EF.3TART, 10 




021506 


10444 7 


















TRAP 


C$REFG 


3156 


021510 








BMCOMPLETE IN IT 15 








{BRANCH IF NOT STARTING. 






021510 


103057 


















8CC 


INIT15 


3157 


021512 


105237 


0C3526 




INCB 


STAFLG 








{SET START COMMAND FLAG. 




3158 


021516 


012705 


000006 




MOV 


06, R5 {LET R5 : 


* 06 








3159 


021522 






50342$: 


{REPEAT 










{INITIATE UNIT NUMBER 


TABLE 




3160 


021522 


012765 


177774 002604 




MOV 


0NINUSE,DEVTBLCR5 


) 




;BY STORING NOT IN USE 


IN EACH 


LOCATION. 


3161 


021530 


162705 


000002 




SUB 


#2,R5 {LET 


R5 


i ' 


R5 


- 02 






3162 


021534 


005705 






1ST 


P5 ;UNTIL 


R5 


EQ 


<>0 








3163 


021536 


001371 






BNE 


50342$ 














3164 


021540 


022737 


000001 ^02012 




CMP 


fll.LSUNIT 








{ONLY ONE UNIT ALLOWED 






3165 


021546 


001425 






BEQ 


5034$ 








SOK 






3166 


021550 
021550 
021554 
021560 
021562 
021564 


012746 
012746 
010600 
104417 
062706 


005146 
000001 

000004 




PRINTF 


OAUDRUN 








{TELL THE MAN 


MOV 

MOV 

MOV 

TRAP 

ADD 


OAUDRUN.-(SP) 
*1. CSP) 
SP.RO 
C$PNTF 
04, SP 


3167 


021570 
021570 
021574 
021576 
021602 
021604 
021610 
021612 
021616 


012727 
000000 
013 727 
000000 
005367 
001375 
005367 
001367 


000025 
002116 
177772 
177756 




DELAY 


25 








{WAIT 


MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DFC 

BNE 


«25, (PC)* 



L$DLY.(PC)+ 



-6CPC) 

. -4 

-22CPC) 

.-20 


3168 


021620 
021620 


104444 






DOCLN 










{ABORT 


TRAP 


C$DCLN 


3169 


021622 


013705 


002012 


5034$: 


MOV 


L$UNIT,R5 


i 


ET 


R5 


:- LIUNIT SHIFT 1 






3170 


021626 


006305 






ASL 


R5 














3171 


0216*0 






50343$: 


{REPEAT 










iSTORF ALL UNIT 






3172 


021630 


162705 


000002 




SUB 


02, R5 ;LET 


R5 


: '-• 


R5 


02 {NUMBERS IN DEVTBL, 


3173 


021634 


010565 


002604 




MOV 


R5.DEVTBLCR5) 




;LET DLVTBLCR5) :» R5 SHIFT 


-1 




:>174 


}21640 


006265 


002604 




ASR 


DEVTBLCR5) 














; 175 


021644 


005705 






TST 


R5 tUNTlL 


R5 


EQ 


00 








3176 


0**1646 


001370 






BNE 


50343$ 














3177 


























3178 


C 21650 
021650 
C 2 1654 


012700 
104447 


000034 


INIT15: 


READFF 


OEF.PWR 








{HAS THERE BE A POWER 


FAILURE? 
MOV 
TRAP 


0EF.PUR.RO 

C$REFG 


3179 


021656 








BNCOMPLETE INI T 16 








{BRANCH IF NOT. 








021656 


103004 


















UCC 


INIT16 


31*30 


021660 


105237 


003526 




INCB 


SIAFLG 








{IF SO - SET THE START 


FLAG. 






021664 


105237 


003527 




INCB 


PWRFLG 








;IF SO - SE! THE POWER 


FAIL FLAG. 


021670 






INIT16: 


RFLAGS 


OPFLAG 








{READ AND STORE FLAGS 


SET BY OPERATOR 




021670 


104421 


















TRAP 


C$RFLA 




021672 


010037 


003536 
















MOV 


RO. OPFLAG 


3i84 


021676 


005003 






CLR 


R3 ;LET R3 : 


- oo 


{CLEAR 


EVEMf FLAG 


3185 


021700 


105737 


003527 




"ISTB 


PWRFLG 


s 


IF 1 


3QWER FAIL HAS NOT OCCURkE 


D THEN: 




3186 


021704 


001020 






BNE 


50344$ 















rl f « 



risen . am ovs sect ions 

INITIAL!;* SECTION 
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SF'j 0105 



3187 



3188 
3189 
3190 
3191 



5192 
3193 

:i94 

3195 
319* 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
320 7 
3208 
3209 
3210 
3211 
321? 
3213 
3214 
3215 
3216 
3217 
3218 

3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 



322 7 
3228 
3229 
3230 
3231 
3232 



021706 
021706 
021712 
021 714 
021716 
021722 
021*24 
021724 
021730 
021732 
021734 

021736 
021740 
021740 

021742 

021742 
021744 

021744 

021746 

021746 

021746 
021746 
021752 
021754 
02 17 VI 
021762 
021764 
021766 
021770 
021772 
021772 
021774 
021776 
022002 
022006 
022014 
02202O 
022024 
022030 
022030 
022034 
022040 
022044 
022050 
022052 

022056 
022062 
022064 
022066 
022070 



012700 
10444 7 
103014 
105757 

001010 

012700 
10444? 
103402 
005103 

000401 

005203 



000401 
005203 



0O4737 
005002 

026527 
001456 
005202 
010500 
006200 

104442 
103044 
011065 
012O65 
062765 
012065 
011065 
011037 

012746 
016546 
016546 
012746 
104437 
062706 

005065 
005703 
001410 
OO5703 
002005 



000035 
003526 
0OO037 



PFAOt'F' OfT.NFW 



i UPDATE PASS COUNT WHEN 

MOV 
TRAP 



off . N* W , RO 

CtRFFG 



017102 



002604 177777 



002514 

002524 

000002 002524 

002534 

003532 

003534 

000300 
002554 
002534 
000003 

000010 

003472 





b:l 


503451 jSUPFRvlSOR IS IN NEW PASS 




TSTH 


STAf'LG (AND UIAG WAS Nf'ITHFR STARTED 




BNt 


503461 

RfADE* Off .RtS jNOR 

MGV Of f .Rf S.RO 
TRAP CfRFFu 




BCS 


50547* jircONO CC THEN jRfSTARTED 




COM 


R». iLt'T R3 j- COMO R3 t D0 IT 




BR 


50350* 


50347$: 








INC 


R5 jSf T 1ST PASS If NEW PASS ANO 

,RFSTARTINf, 


50350 t: 








P r < 


50351* 


503'46'f 








INC 


R3 j SET 1ST PASS I*' NEW PAV- ANO 

iSTARTlNf, 


503511: 




iDO NOT UPDATE IT ON CONTINUE 


503451: 




,0R ON POWER TAIL 


503441: 








J5R 


PC,FIRSTU jINIT DEVICE POINTER. 




CLR 


R2 iLET R2 :• #0 jINIT DEVICE COUNTER, 


50352*: 


iWMILE 


DEVTBUR5) NE #ENO DO 




CMP 


D€VTBL(R5).#€W 




BEQ 


50353* 




INC 


R2 iLET R2 :• R2 ♦ #1 




MOV 


R5.R0 iLET RO : - R5 SHITT 1 




ASP 


RO 




GPHARO 


RO.RO iGET HARDWARE P TABLE FROM SUPER. 

TRAP CIOPHPO 




BCC 


50354* iIFCOND CS THEN 




MOV 


(R0),TS06(R5) iSAVE T506 AOORE5S. 




MOV 


(R0)*.TS$R(R5) jSAVE TSSR AOORESS- 




ADO 


#2,TSSR(R5) 




MOV 


(R0)*.TSVCT(R5) tSAVC INTERRUPT VECTOR ADDRESS. 




MOV 


CR0).T$UNT(R3) iSAVE NUMBER OF DRIVE 




MOV 


(RO).TSNP iSAVfe FOR PRINT OUT'S 




SETVEC 


TSVCT(R5),TS5INTCR5),0INTPRI 

MOV OINTPRI, ( SP i 
MOV T551NTCR5), < SP ) 
MQv TSVCTr«5). -CSP) 
MOV #3. (SP) 
TRAP C*SVEC 
AOO MO.SP 
iSET UP INTERUPT PROCESSING CONDITIONS* 




CLR 


INTFLG(R5) jClEAR INTERR'JPT FLAGS. 




TST 


R3 j ACTUAL PASSCOUNT UPDATE PER R3 



BEQ 50355* 

TST R? iJF 

BGE 5Q356* 



R3 LT 00 THEN 



HI^Ol l an* j- SKI TONS 
INITIAL. I re section 
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3253 
3234 

3235 
3236 
3237 
3238 
323S 
3240 
3241 

3242 
3243 
3244 
3245 

3246 

324 7 

3248 
3249 
3250 
3251 
3252 



3253 



3254 

?55 

5256 
3257 
3256 
3^59 
*?60 



3261 
3262 
3263 
3264 
3265 
3266 
3267 
3265 
3269 
3370 



0220 7<> 

0220 76 
022100 
02? 100 

022106 

022106 

022106 
022106 
022112 

022116 
02212C 

022120 
022122 
022124 
022124 
022130 
022134 
022136 
022140 
022144 
022144 
022150 
022152 
022156 
022160 
022164 
022166 
022172 
022174 
022174 
022176 
022176 

02220C 



022200 
0222OO 
022204 
0222O6 
022212 
022214 
022222 
022224 
022230 
022230 
022236 
022240 
022244 
022244 
022250 



005^65 
00040 5 
012765 



005065 

004737 

000716 



005702 
001026 

012746 
012746 
010600 
104417 
062706 

012727 
000000 
013727 
000000 
005367 
001375 
0057-67 
001367 

10442? 

104444 



012700 
104441 
105737 
001033 
032737 
001027 
004737 

026527 
001421 

105037 

012746 
012746 



003326 



000001 003326 



005376 
017150 



005114 
000001 



000004 
000310 

oor-Mib 

177756 



017102 
002604 

003530 

000500 
023756 





INC 


PASCNTCR5) 


50556*: 


BR 

MOV 


5035/1 
©1 ( PASCNT(R 1 ;, ) 


5055 71: 






505551: 






5035* $: 


CLR 
JSR 


RECCNUR5) 
PC.NEXTtj 



50353$ 



50360$: 



OOOOOO 
002213 
000020 003536 



177777 



503621: 



BR 



BNE 



503521 



R2 

50360$ 



PRINTF 0AUORPM 



DELAY 200. 



BREAK 

DOCLN 



SETPRI 0PRIOO 



TSTB 


IRFC 


BNE 


11 


BIT 


• ADR.OPFLAG 


BNE 


1$ 


JSR 


PC.riPSTU 


CMP 


D€VTBL(R5),*€N0 


BEQ 


11 


CLRfl 


TRAP04 



SE TVEC *4 . 0TRAP4 , OINTPRI 



'■>1'a ova 



II E' PA«,CNTiR5j •' PA'.>CNTf&5; ♦ «1 



it i X PA0CNTCR5) : » 01 



I CL EAR RtCuRD COuNl 
;D0 IT FOR ALL DEVICES. 



1 1^ THERE ARE NO UNITS: 



jPRINT ALL UNITS DROPPED, 




MOV 


♦AUDftPM # - ( SP j 


MOV 


♦1. (SP) 


MOV 


SP,RO 


TRAP 


C4PNTF 


ADO 


94 . SP 


jGO TO SUPERVISOR, WAIT 2 SECONDS. 


MOV 


•200. ,C PC)* 


.WOHO 





MOV 


LIOLY.CPO* 


.uord 





DEC 


-6CPC) 


BNE 


. 4 


ncc 


-22CPC) 


BNE 


. -20 


;G0 TO SUPERVISOR. CHECK TT r . 




TRAP 


C$BRK 


iDO CLEAN COOE ♦ ABORT PASS. 




TRAP 


C$DCLN 



jLOWER CPU PRIORITY TO 

MOV 
TRAP 

j IF ERROR RECOVERY IS ENABLED 



•PRIOO.RO 
CtSPRI 



lANO AUTO-DROP NOT CALLED. THEN SET UP FOH FIRST 
lUHILE THERE ARE MORE DEVICES: 



;CLEAR TRAP FLAG 

iSET VECTOR 4 4 PRIQRTY IK 



MOV 9INTPRI, (SP) 

MOV 9TBAP4.-CSP5 



I > ! * 
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INITIALIZE SECTION 



3271 
5272 
?2?3 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 



3283 



3284 
3285 
3286 

3287 



3288 
3289 
3290 
3291 

o292 
3293 

3294 
3295 
3295 



3297 
3298 



022254 

022260 
022264 
022266 

0222 72 
0223OO 
022302 

022306 
022306 
022312 
022312 
022320 
022322 
022330 
022330 
022334 
02233^ 
022342 
022544 
022350 
022352 
022356 
022360 
022360 
022564 
022366 
022372 
022?>7* 
022400 
022400 
022404 
022410 
022414 
022*16 
022420 
022424 
022432 
022434 
022436 
022436 

022440 
022440 

022442 
022446 
022446 
022452 
022456 
022462 
022466 
022470 
022474 
022500 
022500 



012746 
012746 
104/1-37 
062706 

012737 
000404 
000137 



005237 

023727 
003134 
012775 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

012700 
104^56 
10573/ 
001423 
005265 

016546 
012746 
012746 
010600 
104417 
062706 
016537 
010'jOO 
006200 

104451 



104444 

105037 

012746 
012746 
012746 
012746 

104437 
062706 
005775 



000004 
000003 

000010 

000001 0054 36 

023130 

003436 

0034 36 000025 

002340 002514 

000025 

002116 

177772 

177756 

000OO4 

003530 

003366 

002524 
005543 
000002 



000006 

002604 0174 10 



003530 

000300 
023756 
000004 
000003 

000010 
002524 



1*: 

50366$ 
50365$ 



2*1 



MOV 

BR 

JMP 



INC 
CMP 

But 

MOV 
DRLA* 



• l.TIMF.l 
50 365 1 
50363$ 



TIHE1 



T IMC 1,025 
4$ 

0GSCPK,3TSDB(R5) 
25 



CLRVEC 04 



TSTB TRAPD4 

BEQ 21 

INC FTLCNTCR5) 

PRlNTr 0N00EV.TSSRCR5) 



MOV 


DEVTBL(R5),DR0PN 


MOV 


R5.R0 


ASR 


RO 


DOOU 


RO 



DOCLN 



CLRB TRAPD4 

SETVEC 04 , 0TRAP4 , OINTPRl 



r ,TAP 



5 MiNUTf 





'»F-j 010 7 


MG; 


04 , - ' *,p > 


M0\, 


o? f rr,s>> 


TRAP 


Ci r wfcC 


ADD 


010, SP 


COUNTFR 





;INCP TIMfl FROM 01 TQ 025 Be 01 



j AND GET UNITS STATUS 
iWAIT 



012727 000025 



TST aTS5R(R5) 
DELAY 25 





MOV 


025, C PC)- 




.WORD 







MOV 


L*DL','PC>* 




.WOKD 







DEC 


-6CPC) 




BNE 


. 4 




DEC 


-22(PC) 




SHE 


. -20 


{CLEAR VECTOR AT 4 








MOV 


04. RO 




TRAP 


CJCVilC 


;IFB TRAPD4 NF. 00 THEN 




;LET FTLCNTCR5) :- FTLCNTCR5) ♦ 


01 


{PRINT ERROR 








MOV 


TSSRCP5), (SP) 




MOV 


rO0EV,-CSP) 




MOV 


02. -(SP) 




MGV 


SP.RO 




TRAP 


C*PNTF 




AOO 


06, SP 


j SAVE Of UNIT TO BE 


DROPPED. 




jR0»LOGICAL DEVICE NUMBER 




iDPOP TME UNIT 








TRAP 


C*D0OU 


i EXEC BGNDU-ENOOU COOE IF IDU 


« 


;D0 CLEAN 6AB0RT 








TRAP 


CtDCLN 


j CLEAR TRAP FLAG 






{SET VECTOR 4.PRI0«Tr 


86 






MOV 


OINTPRl, -(SP) 




MOV 


0TRAP4.-CSP) 




MOV 


04, -(SP) 




MOV 


♦3, (SP) 




TRAP 


CiSVEC 




ADD 


010, SP 


;CMfCK FOR ADDRESS 






iWAIT 








MOV 


025, CPO* 
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P'< 



022504 


000000 




022506 


013727 


002116 


022fl2 


000000 




022514 


005367 


177772 


022520 


001375 




022522 


005367 


177756 


022526 


001367 




3299 022530 






022530 


012700 


000004 


022534 


104436 




3300 022536 


105737 


003530 


3301 022542 


O01424 




3302 022544 


005265 


003366 


3303 022550 






022550 


016546 


002524 


022554 


012746 


005543 


022560 


012746 


OO0002 


022564 


010600 




022566 


104417 




022570 


062706 


000006 


3304 022574 


016537 


002604 017410 


3305 022602 


010500 




3306 022604 


C06200 




3307 022606 






022606 


104451 




330« 






3309 022610 






022610 


104444 




3310 






3311 022612 


003127 


4$ 


3312 






3313 022614 


004737 


007766 3* 


3314 022620 


010475 


002514 


3315 022624 






022624 


012727 


000025 


022630 


000000 




022632 


013727 


002116 


022636 


OOOOOO 




022640 


005367 


177772 


022644 


001375 




022o46 


005367 


1^7756 


022652 


C01367 




3316 022654 


012775 


002340 002514 


3317 022662 






022662 


012727 


000025 


022666 


OOOOOO 




022670 


013727 


002116 


022674 


OOOOOO 




022676 


00536/ 


177772 


022702 


001375 




022704 


005367 


177756 


022710 


O01367 




3319 022712 


032775 


000200 002524 


3319 022720 


001420 




3320 022722 


0327 75 


000100 002524 


3321 022730 


001001 




3322 022732 


000457 





CLRVEC 04 



T3TB TRAPD4 

BEQ 3$ 

INC FTLCNTCR5J 

PRINTF $N0DEV,TSSR(R5) 



MOV 


DEVTBL(R5).DR0PN 


MOV 


R5,R0 


ASR 


RO 


DODU 


RO 



OOCLN 



BGT 

JSR 
MOV 
DELAY 



MOV 
DELAY 



50367$ 

PCSETDEF 

R4.5JTSDBCR5) 
25 



*GSCPK,STSD3(R5) 
25 



BIT 


*TS>S5R,9TSSR(R5) 


BEQ 


50370$ 


BIT 


0TS.0FL.8TSSRCR5) 


BNE 


50371$ 


BR 


50364$ 







^FTJ 0108 




.WORD 







MOV 


i.tOLf.'.PCj* 




.WORD 







DEC 


-6fPC) 




BNf 


, -4 




DEC 


-22CPC) 




BNF 


. -20 


j CLEAR VECTOR AT 4 








MOV 


04, RO 




TRAP 


C$CVEC 


lIFB TRAPD4 NE 90 ' 


rnEN 




{LET FTLCNT(R5) ;« 


FTLCNTCR5) • 


*1 


» PRINT ERROR 








MOV 


TSSRCR5).-CSP) 




MOV 


*NO0EV,-CSP) 




MOV 


*2, -CiP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADO 


*6,SP 


.•SAVE * Of UNIT TO 


BE DROPPED. 




IRO-LOGICAL DEVICE 


NUMBER 




;DROP TK T UNIT 








TRAP 


C$DODU 


; EXEC BGNOU-ENDDU 


CODE IF IDU 


- 


;D0 CLEAN GABORT 


TRAP 


C$DCLN 



{SET UNIT NUMBER 



MOV 


025.CPC)* 


.WORD 





MOV 


L$DLY,(PC")* 


.WORD 





DEC 


•6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


jANO GET UNITS STATUS 




{WAIT 




MOV 


•25.CPC)* 


.WORD 





MOV 


L$DLr # CPO* 


.WORD 





DEC 


-6CPC5 


BNE 


. -4 


DEC 


-22CPC) 


B*C 


. -20 


{IF OTS.SSR SETIN STSSRCR5) THEN 



{IF ♦TS.CfL NOTSETIN 9TSSRCR5) THEN 
{EXIT COUNTER WHEN UNIT ON LINE 



\" l i 
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SEQ 0109 



3323 
3324 
3325 



3326 
3327 
3328 
3329 
3330 
3331 



3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 



3342 

3343 
3344 
3345 
3346 
3347 
3348 



3349 

3350 
3351 
3352 
3353 
3354 
3355 
3356 



022734 
022734 
022734 
022740 
022744 
022750 
022752 
022754 

022760 

022760 
022762 
022762 
022762 
022766 
022772 
022776 
023000 
023002 

023006 
025006 
023014 
023016 
023016 
023022 
023022 
023030 
023032 
023032 
023036 
023O40 
023O44 
023O46 
023052 
023054 
023060 
023O62 
023062 
023064 
023O66 
025066 
023072 
023O72 
025072 
023072 
025076 
025100 
023106 
023110 
023114 

023120 

023120 



012700 
104456 
023727 
003404 
004737 
004737 



003534 
005456 
000002 



000006 



002604 
023726 
000002 



000006 



013746 
012746 
012746 
010600 
104417 
062706 



000412 



016546 

012746 
012746 
010600 
104417 
062706 



012737 
000402 

005237 

023727 
003016 

012727 
000000 
013727 
000000 
005567 
001375 
005567 
001567 

104422 
000754 



000137 022306 



003440 
003440 

000144 
002116 
177772 

177756 



000004 

003436 

012734 
013452 



50371$: 



PRINTF -?OFLINM,TSNP 



{Prim UNIT OFF LINE EVERr 10 SEC 



MOV 


TSNP.-CSPj 


MOV 


OQFLTNM, -CSP; 


MOV 


♦2.-CSP) 


MOV 


SP,R0 


TRAP 


C*PNTF 


ADD 


06, SP 



50372$: 



50370$: 



BR 



50373$ 

PRINTF 0NRDYM,DEVTBL(R5) 



MOV 


DEVTBL(R5),-(SP) 


MOV 


*NRDfM. -CSP) 


MOV 


*2,-CsP) 


MOV 


SP.PO 


TRAP 


C$PN?F 


ADD 


*6 # SP 



000001 003440 



000013 



50373$: 








MOV 


♦1.TIME2 




BR 


50374$ 


50375$: 








INC 


TIME2 


50374$: 








CMP 


TIME2,<U3 




BGT 


50376$ 




DELAY 


100. 



;INCR TIME2 FROM 01 TO <U3 BY *1 



jUAIT FOR UNIT TO BE SET ON-LINF. 



50376$: 

50367$: 

50364$: 



BREAK 

BR 

JMP 



j ALLOW TERMINAL INTERRUPT 



MOV 


*100,,(PO* 


.WORD 





MOV 


L$DLi.CPO 


.WORD 





DEC 


-6CPC) 


BNt" 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



50375$ 
50366$ 



TRAP 



C$BRK 



000025 



50377$: 



004757 017150 



CLRVEC 04 



CMP TIME 1,#25 

BLE 50377$ 

JSR PC,MOVMSG 
JSR PCTCC1 



JSR PC.NEXTU 



j CLEAR VECTOR AT 4 

MOV C4.R0 

TRAP CSCVEC 

j IF OFF LINE FOR 3.5 MINUTES 

j GET MESSAGE PACKET 

jPRINT ERROR AND DROP OFF LINE UNIT 



sREPEAT UNTIL ON LINE OR TIMED OUT. 
jSET UP FOR NEXT UNIT. 



G9 
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SFQ 0110 



3357 










3356 


023124 


000137 


022230 




3359 










3360 


023130 








3361 


023130 








3362 


023130 


105737 


003527 




3363 


023134 


001026 






3564 


023136 
023136 


104431 








023140 


010037 


003406 




3365 


023144 


013737 


003406 


003410 


3366 


023152 


062737 


004000 


003410 


3367 


023160 


027727 


160222 


004000 


3368 


023166 


002011 






3369 


023170 










023170 


012746 


023236 






023174 


012746 


000001 






023200 


010600 








023202 


104417 








023204 


062706 


000004 




3370 


023210 
023210 


104444 






3371 










3372 


023212 








3373 










3374 


023212 








3375 










3376 


023212 


105037 


002214 




3377 


023216 


012703 


003526 




3378 


023222 


C04737 


012664 




3379 


023226 


105037 


003527 




3380 










3381 


02323£ 
023232 
023234 


104432 
000104 






3382 


023236 


045 


101 


106 




023241 


122 


105 


105 




023244 


040 


115 


105 




023247 


115 


117 


040 




023252 


124 


117 


117 




023255 


040 


123 


115 




023260 


101 


114 


114 




023263 


040 


106 


117 




023266 


122 


040 


122 




023271 


104 


055 


127 




023274 


122 


040 


102 




023277 


106 


122 


123 




023302 


045 


116 




3383 


023304 


045 


101 


122 




023307 


105 


055 


114 




023312 


117 


101 


104 




023315 


040 


111 


116 




023320 


040 


114 


101 




023323 


122 


107 


105 




023326 


122 


040 


115 




023331 


105 


115 


117 




023334 


045 


116 


000 



JMP 



50362$ 



50363$: 
50361$: 



TSTB PWRFLG 
BNE 50400* 
MEMORY DATAWT 



IFB PWRFLG F.Q 40 THEN 



{REQUEST MEMORY FROM SUPER FOR RO/WR BUFFERS. 



MOV DATAWT, DATARD 
ADD ODATCNT, DATARD 
CMP aOATAUT.ODATCNT 
BGE 50401$ 

PRINTF 0MEMOM 



TRAP 
MOV 
jSET RD BFR ADDRESS 

{WHEN NOT ENOUGH TREE MEMO AVAILABLE 

;WARN OPERATOR 



C$MEM 
RO, DATAWT 



DOCLN 



{AND ABORT PASS 



MOV 


WiEMOM, -CSP) 


MOV 


♦l.-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


*4,SP 



TRAP 



C$DCLN 



50401$ 
50400$ 



jDIAG MUST BE RE -LOADED IN A CPU WITH LARGER MEMO 



MEMOM: 



CLRB 
MOV 
JSR 
CLRB 

EXIT 

.ASCII 



CHGFLG 
*€N0FLG,R3 
PC.CLRERR 
PWRFLG 



(LET R3 



CLR CHANGE CMO SEQ TBL FLAG. 

- *ENOFLG 

CLEAR ALL FLAGS. 

CLEAR THE POWER FAIL FLAG, 



INIT 

/rfAFREE MEMO TOO SMALL FOR RD-WR BFRS*N/ 



TRAP 
.WORD 



C$EXIT 
L10012-. 



.ASCIZ /*ARE-LOAD IN LARGER MEMOrfN/ 



H9 



MISCei.LANtOi'li SECTIONS 
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3384 

5*05 

3386 



3387 
3388 
3589 
3390 
3391 
3392 
3393 
3394 
3395 
3396 

3397 
3398 
3399 
3400 
3401 
3402 
34C3 



3404 
3405 



3406 
3407 
3408 
3409 



3410 
3411 
3412 

3413 

3414 

3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 



023340 
023340 
023340 



023342 
023342 

023342 
023346 
023346 
023354 
023356 
023362 
023362 
023366 
023372 
023376 
025402 
023*04 
025410 
023414 
023414 
023420 
023422 
023426 
023430 
023434 
023434 
023440 
023444 
023450 
023452 
023454 
023460 
023466 
023470 
023472 
0234 72 

023474 
0234 76 
023476 
0235O4 
023510 
023516 
023520 
023526 



104411 



004737 

026527 
001525 
105037 

012746 
012746 
012746 
012746 
104437 
062706 
017502 

012700 
104436 
105737 
0C1423 
005265 

016546 
012746 
012746 
010600 
104417 
062706 
016537 
010500 
006200 

104451 

000452 

012775 
004737 

032775 
001423 
032775 
001416 
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SEQ 0111 



Ll0012i 



.EVEN 
END INI T 



TRAP 



CJINIT 



.SBTTL AUTO CROP SECTION 



SECTION EXECUTED AFTER THE INIT CODE UHEN "ADR 
SECTION CHEKS FOR A VALID INTERFACE LOCATION. 
FROM INTERFACE 



' FLAG IS SET Br OPERATOR 
DROPS UNIT IF No RESPONSE 



017102 

002604 177777 

003530 

000300 
023756 
000004 
000003 

000010 
002514 

000004 

003530 

003366 

002514 
023632 
000OO2 



000006 

002604 017410 



L*AUT0 
50402* 



BGNAUTO 



JSR PC FIRSTU 

sWHILe'0EVTBL(R5) NE OEND DO : 

CMP DEVTBLCR5),0END 

BEQ 50^03$ 

CLRB TRAPD4 jLET TRAPD4 :B» 00 



{FIND FIRST UNIT 



SETVEC 04,0TRAP4,0INTPRI 



;SET VECTOR 4 



MOV aTSDB(R5),R2 
CLRVEC 04 



i ADDRESS TS05 INTERFACE 
j CLEAR VECTOR AT 4 



TSTB TRAPD4 ; IFB TRAPD4 NE 00 THEN 
BFQ 50404$ 

INC FTLCNTCR5) ;LET FTLCNTCR5) :* FTLCNTCR5) ♦ 01 

PRINTF 0AUT0DM,TSDB(R5) ;PRINT ERROR 



MOV 


OINTPRI. CSP) 


MOV 


0TRAP4, (SP) 


MOV 


04 , - C SP ) 


MOV 


03, -CSP) 


TRAP 


CISVEC 


ADO 


010, SP 


MOV 


04, RO 


TRAP 


CJCVEC 



002340 C02514 

012700 

000200 002524 

000100 002524 



50404$ 



MOV 
MOV 
ASR 
DOOU 



BR 

MOV 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
;SAVE Of UNIT TO BE DROPPED. 
jRO-LOGICAL DEVICE NUMBER 



DEVTBL(R5),DR0PN 

R5.R0 

RO 

RO {DROP THE UNIT: EXEC BGNDU-ENODU CODE IF IDU - 

TRAP CSDODU 



TSDBCR5), -CSP) 
*AUTODM.~(SP) 
02, -(SP) 

SP.RO 

C*PNTF 

06, SP 



50405* 



OGSCPK,6)TSDBCR5) 
JSR PC.WSSR 
BIT 0TS.SSR.STSSRCR5) 
BEQ 50406* 
BIT 0TS.0FL,fi)TSSRCR5) 
BEQ 50407$ 



j SEND GET STATUS COMMANO 

{WAIT 

{IF OTS.SSR SETIN 3TSSRCR5) T H EN 

jIF OTS.OFL SETIN S)TSSR(R5) THEN 



M 
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SEQ 0112 



3423 023530 


005265 


003366 




3424 023534 








023534 


013746 


003534 




023540 


012746 


005456 




023544 


012746 


000002 




023550 


010600 






023552 


104417 






023554 


062706 


000006 




3425 023560 


004737 


017324 




3426 








3427 023564 








3428 








3429 023564 


000416 






3430 023566 








3431 02^566 


005265 


003366 




3432 023572 








023572 


016546 


002604 




023576 


012746 


023726 




023602 


012746 


000002 




023606 


010600 






023610 


104417 






023612 


062706 


000006 




3433 023616 


004737 


017324 




34 34 








3435 023622 








3436 








3437 023622 








3438 023622 


004 737 


017150 




3439 








3440 023626 


000647 






3441 023630 








3442 








3443 023630 








023630 








023630 


104461 






3444 








3445 023632 


045 


101 


102 


023635 


125 


123 


040 


023640 


124 


122 


101 


023643 


120 


040 


101 


023646 


124 


oo 


045 


023651 


117 


066 


045 


023654 


116 






3446 023655 


045 


101 


111 


023660 


116 


124 


105 


023663 


122 


106 


101 


023666 


103 


105 


040 


023671 


102 


101 


104 


023674 


040 


117 


122 


023677 


040 


116 


117 


023702 


124 


040 


123 


023705 


105 


124 


040 


023710 


124 


117 


040 


023713 


101 


102 


117 


023716 


126 


105 


040 


023721 


101 


104 


045 


023724 


116 


000 





INC 



ETLCNTCR5) 

PRINTF WLINM.TSNP 



jLET FTLCNUR5) : * FTLCNTCR5) ♦ 01 



5040 7$ 
50406$ 



BR 
INC 



JSR PCDROPUA 



50410$ 

FTLCNTCR5) 



MOV 


TSNP, fSP) 


MOV 


OQFLINM, -CSP'j 


MOV 


02, -<SP) 


MOV 


3P,R0 


TRAP 


C$PNTF 


ADD 


On . SP 



{LET FTLCNKR5) := FTLCNTCR5) * 01 



PRINTF 0NRDYM.DEVTBUR5) 



50410$ 
50405$ 



JSR PC.DROPUA 

JSR PC.NEXTU 
50402$ 



MOV 


DEVTBlCR5), -CSP) 


MCV 


ONRDYM,-(SP) 


MOV 


o2, -r$p) 


MOV 


SP,RG 


TRAP 


CiPNTF 


ADD 


06, SP 



BR 
ENDAUTO 



50403$: 
L 10013: 

AUTODM: .ASCII /#ABUS TRAP AT #06*N/ 



TRAP 



C$AUTO 



.ASCIZ /rfAINTERFACE BAD OR NOT SET TO ABOVE AD*N/ 



1 h 
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SEQ 0115 



5447 



3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 

3466 
3467 
3468 
3469 
3470 
3471 
3472 



3473 
34 74 
34 75 

34 76 
3477 
3478 



34 79 
3480 
3481 



S482 
5483 

3484 
3485 
3486 
3487 
3488 
3489 



023726 

023731 
023734 
023^37 
023742 
023745 
023 750 
023753 



023756 
023762 



023764 
023764 

023764 
023770 
023770 
023776 
024OO0 
024004 
024004 
024010 
024012 

024016 
024020 

024020 
024020 
C24022 



024024 
024024 
024024 



045 
116 
040 
061 
040 
124 
104 
116 



101 
111 
045 
045 
116 
040 
131 
000 



125 NRDYM 

124 

104 

101 

11? 

12? 

045 



.ASCI/ /*AUNIT *D1«A NOT RDY*N/ 



105237 003530 
000002 



TRAP4 



.EVEN 

DEVICE BUS TRAP HANDLER 
OUTPUT; TRAPD4 BYTE 1: TRAPED AT 4 

0: NO TRAP 

INCB TRAPD4;LET TRAPD4 jB= TRAPD4 * 01 

RTI 



104412 



.SBTTL CLEANUP CODING SECTION 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE END OF EACH PASS. 



BGNCLN 
LiCLEAN: : 



004737 017102 

026527 002604 

001410 

004737 012700 

016500 002534 

104436 

004737 017150 

000764 



104432 
000002 



177777 



JSR PC FIRSTU 
50411$: {WHILE DEVTBLCR5) NE *END DO 
CMP DEVTBL(R5),*END 
BEQ 50412$ 

JSR PC, USSR 

CLRVEC TSVCTCR5) 



;FIND FIRST UNIT. 



;UAIT FOR UNIT READY OR TIMEOUT, 
{RELEASE INTERRUPT VECTORS FOR ALL DEV. 

MOV TSVCTCR5),R0 



50412$: 



L 10014 : 



JSR 
BR 

EXIT 

.EVEN 
ENDCLN 



PCNEXTU 
50411$ 

CLN 



I FIND NEXT UNIT. 



TRAP 



CJCVEC 



TRAP 
.WORD 



TRAP 



CJEXIT 
L 100 14-. 



C$CLEAN 



.SBTTL DROP UNIT SECTION 



} THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
j TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN OODU 
{MACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 



K^ 



MISCELLANEOUS RECKONS 
DROP UNIT SECTION 



3490 
3491 

3492 
3493 
3494 
3495 
3496 



3497 



3498 



3499 
3500 
3501 



3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 

3512 
3513 
3514 
3515 

3516 
3517 
3518 
3519 
3520 
3521 
3522 



3523 
3524 
3525 



024026 
024026 

024026 
024030 
024032 
024040 
024040 
024044 
024046 
024046 
024052 
024056 
024062 
024064 
024066 
024072 
024072 
024074 



024C* 

024076 
024076 



024100 
024100 
024100 
024102 
024104 
024110 
024110 
024112 
024116 
024122 
024130 
024134 
024140 
024144 
024144 
024150 
024154 
024160 
024164 
024166 



010005 
006305 
012765 

016500 
104436 

013746 
012746 
012746 
010600 
104417 
062706 

000167 
000000 



104453 



010005 
006305 
010O65 

104442 
011065 
012065 
062765 
011065 
011065 
011037 

012746 
016546 
016546 
012746 
104437 
062706 



MACRO M1200 20 -MAR -84 08-53 PAGE 17-71 



SEQ 0114 



L$OU: : 



177774 002604 
002534 



017410 
005065 
000002 



BGNDU 



MOV R0.R5 

ASL R5 

MOV 0NINUSE , DE V TBL C R5 ) 

CLRVEC TSVCTCR5) 



PRINTF tfDROPDM.DROPN 



}R5 = LOGICAL DEVICE NUMBER X 2. 
;SLT NOT IN USE FLAG FOR THE DEVICE. 



000006 



L10015; 



EXIT DU 

.EVEN 
ENDDU 



{RELEASE THE INTERRUPT VECTOR. 

MOV 
TRAP 

{PRINT DROP DEVICE MESSAGE 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



TSVCT(R5),R0 
CJCVEC 

DROPN.-CSP) 
ODROPDM, -CSP) 
42, -CSP) 
SP,R0 
C$PNTF 
*6,SP 



.WORD J$JMP 
.WORD L10015-2-. 



TRAP 



C$DU 



.SBTTL ADD UNIT SECTION 



THE ADD-IMIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. 
"EF.AUNIT" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 



IF 



L$AU:: 



BGNAU 



024172 005065 



002604 



002514 

002524 

000002 002524 

002534 

003532 

003534 

000300 
002554 
002534 
000003 

000010 

003472 



MOV 


R0.R5 


5 R5 - LOGICAL DEVICE NUMBER X 2 


• 


ASL 


R5 








MOV 


R0,DEVTBL(R5) 


{STORE UNIT * IN DEVICE 


TABLE. 




GPHARD 


RO.RO 


{GET HARDWARE P TABLE FROM SUPER . 








TRAP 


C$GPHRD 


MOV 


(R0),TSDBCR5) 


;SAVE TSDB ADDRESS. 






MOV 


(RO)f .TSSRCR5) 


{SAVE TSSR ADDRESS. 






ADD 


*2,TSSR(R5) 








MOV 


CR0),TSVCT(R5) 


{SAVE INTERRUPT VICTOR 


ADDRESS. 




MOV 


CR0J.TSUNTCR5) 


; SAVE NUMBER OF DRIVE 






MOV 


CR0),TSNP 


{SAVE FOR PRINT OUT'S 






SETVEC 


TSVCTCR5),TS5INT(H5) 


OINTPRI 


MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


4INTPRI. -(SP) 

TS5INTCR5\-CSP) 

TSVCT(R5).-(SP) 

*3,-CSP) 

C*SVEC 

$10,SP 






{SET UP INTERUPT PROCESSING CONDITIONS. 


CLR 


INTFLGCR5) 


{CLEAR INTERRUPT FLAGS, 







L 9 



MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 



3526 



3527 
3528 
3529 
3530 



3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 

3545 
3546 
354 7 
3548 
3549 



3550 
3551 
3552 
3553 
3554 



3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 



024176 
024176 
024200 



024202 
024202 
024202 



024204 

024204 
024204 

024204 
024210 

024214 
024214 
024214 

024216 
024222 
024226 
024230 
024230 
024232 
024234 
024236 

024240 
024244 
024250 
024254 
024260 
024264 
024264 
024272 
024274 
024300 
024304 
024310 
024316 
024322 
024330 
024330 



000167 
000000 



104452 



105037 
105037 



104402 

004737 
004737 
103404 

104455 
000002 
004536 
006120 

004737 
012702 
004737 
004737 
004737 

026527 
001451 
0165C2 
062702 
011265 
042765 
011265 
042765 
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EXIT AU 



SEQ 0115 



WORD JijMP 
WORD L10016-2-. 



L10016: 



.EVFN 
ENDAU 



TRAP C$AU 



.TITLE HARDWARE TESTS 

.SBTTL TEST 1; BASIC FUNCTIONS. 

I TES'i TO EXECUTE ALL TS05 FUNCTIONS. 



Tin 



003515 
003514 



Tl.l: 



BGNMOD 
BGNTST 



CL.RB 
CLRB 

BGNSUB 



RANDOM 
EXPBOT 



sCLR THE RANDOM OPERATIONS FLAG. 
jCLR EXPECT BOT FLAG. 

{SUBTEST 1 - SET CHAR, DRIVE INIT , GET STATUS. 

TRAP CSBSUB 



017102 
007072 



JSR 


PC.FIRSTU 


;FIND THE FIRST UNIT, 






JSR 


PC.SOFINIT 


;INIT DEVICE 






BLS 


11$ 








ERRDF 


2.NSSRM.STAERM 


{REPORT TS05 NOT READY 


TRAP 
.WORD 
.WORD 
.WORD 


CSERDF 

2 

NSSRM 

STAERM 



007466 
025122 
025076 
010226 
017102 

002604 177777 

002544 

000012 

002564 

177700 002564 

002574 

177477 002574 



11$: JSR PC.MDSET 

MOV ^6FSEQ0,R2 

JSR PC.BFSEQ 

JSR PC.EXALL 

JSR PC.FIRSTU 

50413*; ; WHILE DEVTBUR5) NE SEND DO 



;G0 DO SETUP'S 

jADR OF CMO SEQ. 

{SET UP CMO SEQ. 

{EXECUTE CMD SEQ ON ALL DEVICES. 

I FIND THE FIRST UNIT. 

{WHILE THERE ARE MORE DEVICES; 



R2 



016546 002564 



CMP DEVTBLCR5),4END 

BEQ 50414$ 

MOV MSGPKACR5),R2 

ADD 412.R2 {LET R2 

MOV (R2).TS5CL(R5) 

BIC 4177700, TS5CLCR5) 

MOV (R2),TS53W(R5) 

BIC 4177477, TS5SWCR5) 

PRINTF tfCODELM , DEVTBLC R5 ) , TS5CLC R5 ) 



;GET MSG PACKET ADR, 
♦ 012 ;GET XSTAT2 ADR. 

{STORE CODE LEVEL FROM DTR BYTE, 



{STORE SWITCH SETTINGS 



MOV 



TS5CL(R5),~(SP) 



-19 
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024334 


016546 


002604 










024340 


012746 


004162 










024344 


012746 


000003 










024350 


010600 












024352 


104417 












024354 


062706 


000010 








3571 














3572 


024360 
024360 
024364 
024370 
024374 
024400 
024402 
024404 


016546 
016546 
012746 
012746 
010600 
104417 
062706 


002574 

002604 
004231 
C00003 

000010 




PRINTF 


ttSWSET.DEV 


3573 














3574 


024410 






50415$: 






3575 


024410 


004737 


017150 




JSR 


PC.NcXTU 


3576 














3577 


024414 


000723 






BR 


50413$ 


3578 


024416 






50414$: 






3579 














3580 


024416 
024416 
024416 


104403 




L 1.0020: 


ENDSUB 




3581 














3582 


024420 
024420 
024420 


101402 




T1.2: 


BGNSU8 




3583 














3584 


024422 


012702 


0251/4 




MOV 


06FSEQ1.R2 


3585 


024426 


00473? 


025076 




JSR 


PC.BFSEQ 


3586 


024432 


004737 


010226 




JSR 


PC. EX ALL 


3587 


024135 


105037 


003526 




CLRB 


STAFLG 


3588 


024442 
024442 
024442 


104403 




L10021: 


endsub 




3589 














3590 


024444 
024444 
024444 


104402 




T1.3: 


BGNSUB 




3591 














3592 


024446 


012702 


025206 




MOV 


*BFSEQ2,R2 


3593 


024452 


004737 


025076 




JSR 


PC.BFSEQ 


3594 


024456 


004737 


010226 




JSR 


PC.EXALL 


3595 


024462 
024462 
024462 


104403 




L 10022: 


ENDSUB 




3596 














3597 


024464 
024464 
024464 


104402 




T1.4: 


BGNSUB 




3598 














3599 


024466 


012702 


025300 




MOV 


OBF5EQ3.R2 


36C0 


0244 72 


004 737 


025076 




JSR 


PC.BFSEQ 


3601 


024476 


004737 


010226 




JSR 


PC.EXALL 


3602 


024502 








ENDSUB 







SEQ 0116 


MOV 


DEVTBLCR5), -(SP) 


MOV 


tfCOOELM, -(SP) 


MOV 


03, -CSP) 


MOV 


SP.RO 


TRAP 


CSPNTF 


ADD 


£10, SP 


; PRINT THE TS05 MICROCODE LEVEL 


f 


ttSWSET,DEVTBL(R5),TS5SW(R5) 




MOV 


TS5SWCR5). CSP) 


MOV 


DEVTBLCR5). -CSP) 


MOV 


tfSWSET.-CSP) 


MOV 


$3, CSP) 


MOV 


SP.RO 


TRAP 


CiPNTT 


ADD 


010, SP 


{PRINT THE TS05 SWITCH SETTINGS 


, 



{FIND NEXT UNIT 



;SUBTEST 2 - REWIND. 



TRAP 



TRAP 



CSESUB 



C$BSUB 



ADR OF CMO SEQ. 
SET UP CMD SEQ. 

EXECUTE CMO SEQ ON ALL DEVICES, 
j CLEAR START FLAG 



TRAP CSF.SUB 

{SUBTEST 3 - WRITE/VERIFY. 

TRAP C$BSU6 

j ADR OF CMD SEQ. 
5 SET UP CMD SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP C*ESUB 

{SUBTEST 4 - WRITE TAPE MARK, ERASE. 

TRAP CSBSUB 

;ADR OF CMD SEQ. 
j SET UP CMU SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 



N9 
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024502 






L 10023: 








024502 


104403 










3603 














3604 


024504 

024504 
024504 


104402 




T1.5: 


BGNSUB 




3605 














3606 


024506 


012702 


025352 




hov 


#BFSUQ4.R2 


3607 


024512 


004737 


0250 76 




JSR 


PC.BFSEQ 


3608 


024516 


004737 


010226 




JSR 


PC.EXALL 


3609 


024522 
024522 
024522 


104403 




1.10024: 


ENDSUB 




3610 














3611 


024524 
024524 
024524 


104402 




T1.6: 


BGNSUB 




3612 














3613 


024526 


012702 


025414 




MOV 


4BFSFQ5.R2 


3614 


024532 


004737 


025076 




J5R 


PC.BFSEQ 


3615 


024536 


004737 


010226 




JSR 


PC.EXALL 


3616 


024542 
024542 
024542 


104403 




1.10025: 


ENDSUB 




3617 














3618 


024544 
024544 
024544 


104402 




T1.7: 


BGNSUB 




3619 














3620 


024546 


012702 


025466 




MOV 


0BFSEQ6.R2 


3621 


024552 


004 737 


0250/6 




JSR 


PC.Bf-SFQ 


3622 


024556 


004737 


010226 




JSR 


PC.EXALL 


3623 


024562 
024562 
024562 


104403 




L 10026: 


ENDSUB 




3624 














3625 


024564 
024 564 
024564 


104402 




T1.8: 


BGNSUB 




3626 














3627 


024566 


012702 


025540 




MOV 


/BFSEQ7.R2 


3628 


024572 


004737 


025076 




JSR 


PC.BFSEQ 


3629 


024576 


004737 


010226 




JSR 


PC.EXALL 


3630 


024602 
024602 
024602 


104403 




L 10027: 


ENDSUB 




3631 














3632 


024604 
024604 
024604 


104402 




T1.9: 


3GNSUB 




3633 














3634 


024606 


012702 


025572 




MOV 


0BFSEQ8.R2 


3635 


024612 


004737 


0250/6 




JSR 


PC.BFSEQ 


3636 


024616 


004737 


010226 




JSR 


PC.EXALL 


3637 


024622 
024622 
024622 


104403 




L 10030: 


ENDSUB 





SEQ 0117 



TRAP 



C$ESUB 



{SUBTEST 5 - SPACE FILES. 



TRAP C$BSUB 

ADR OF CMD 5EQ. 
SET UP CMD SEQ. 

EXECUTE CMD SEQ ON ALL DEVICES. 



TRAP C$ESUB 

j SUBTEST 6 » SPACE RECORDS. 

TRAP C$BSUB 

ADR OF CMD SEQ. 
SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 



TRAP 



C$ESUU 



.-SUBTEST 7 - WRITE RETRY. 



TRAP C$BSU8 

ADR OF CMD SEQ. 

SET UP CMD SEQ 

EXECUTE CMD SEQ ON ALL DEVICES. 



1RAP CJF.SUB 

{SUBTEST 8 - READ REV RETRY. 

TRAP CSBSUB 

;ADR OF CMO SEQ. 
{SET UP CMO 3tU. 
{EXECUTE CMD SEQ ON ALL DEVICES, 

TRAP C$ESU6 

{SUBTEST 9 - READ FWD RETR> . 

TRAP C5BSUB 

ADR OF CMD SEQ. 
SET UP CMD SKQ. 
EXECUTE CMD SEQ ON ALL DEVICES, 

TRAP C$ESUB 



r'.'; 
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se', one 



5656 



5640 
5641 
564c? 
**45 
5644 



564 b 
3646 



564 7 
5648 
5649 
5650 
5651 
565? 
5655 



5654 
3655 
5656 
5657 
5658 
5659 
5660 
3661 
5662 
5665 
5664 
5665 



5666 
5667 
5666 
5669 

3670 
5671 
567? 
3673 
56 74 
36 75 
36 76 
3677 
3678 
5679 
3660 
5661 
366,: 
36*5 

$604 



024624 
024624 
024624 

024626 
024632 
024656 
024642 
02464^ 
02464? 

024644 
024644 
024644 
024646 
024652 
024656 
024662 
024670 
024674 
024 700 
024 700 
024 700 
024702 
024706 
024712 
024712 
024/16 
024 720 

024 722 
024 724 

024 724 

024 730 
024 730 
024 7 30 
024 732 
024 740 
024744 
024752 
024756 
024764 
024 7 72 
024 776 
025004 
025010 
025016 
02V)22 
025030 
025034 
025040 
025046 
025052 
Q25060 



10440? 

012702 
0O4 75 7 

004757 



XO4403 



104402 
012702 
004737 
0O4737 
112737 
0O4737 
105057 



104405 
015702 
062702 

020237 
001402 
000342 

000773 

105237 



104402 
012737 
004737 
OJ2737 
004737 
112737 
012737 
0O4737 
012737 
004737 
012737 
004737 
012737 
004737 
105037 
012737 
004737 
012757 
00A7J7 



0?56?4 
0250 'h 
010??6 



025646 
025076 
010?26 
OOOOOl 
010226 
0055?0 



003406 

0OO01? 

C034C6 



005523 



104401 
016152 
000012 
016152 
OOOOOl 
OOOOU 
016152 
000012 
016152 
104001 
016152 
OOOOU 
016152 
003520 
0OO012 
016152 
OOOOU 
016152 



U.lOj 



UbNSUH 



jVJBTt.ST 10- U.FAK. 



TRAP 



SBSUB 





MOV 


•BFSEQ'J.R? 




J5« 


PC.BJ SI.U 




J3P 


PC.FXALl 




ENDSUB 




L 10051: 







jflOR f> CMC ifQ. 
>.'A T UP CMC SFQ. 
lE/FCUTt CMD SEQ ON A|..l DFrflCE 



r PAP 



:t< ">} 



Tl.il 



UGNSUB 



jSUBTEST 11 - WTV SWAPPED DATA B'TF r 3 . 



0035/0 





MOV 


•6FSE10.R2 




JSR 


PC.BFSEQ 




jSR 


PC.ExALL 




MOVB 


•I.SWBFLG 




JSP 


PC.EXALL 




CLP8 


SWBFLG 




ENDSUB 




L 10032: 








MOV 


DATAWT.R? 




AOO 


#10.. R2 


50416*: 


iWMILE 


R2 NE DATAW 




CMP 


R2.DATAWT 




BEG 


50417* 




SWAB 


-(R?^ 




B» 


50416* 


50417$; 







TRAP 
, ADR OT CMD SEQ. 
jSET UP CMD SEQ. 
iWRITE/VERIf r RECORDS 1 AND 2. 
jENABLE BtTE SWAPPING. 
iWRITE/VERIf 1 RECOROS 5 ANO 4 . 
jDISABLE BYTE SWAPPING. 



CIBSlS 



TRAP 
jINIT WRITE BL»FFP POINTER. 

00 i'^JTIL 10 BYTES HAVE BEEN SWAPPED. 



C IF. SUB 



T1.12: 



INCfl 

3GNSUB 



T1SWB 



003420 

002336 

003520 
002336 

002336 

003420 

002356 

002556 
002536 



MOV 


•ROR.CMDWRO 




JSR 


PC.VFEXC 




MOV 


•1? # CMDPKT»CP, 


,CNT 


JSR 


PC.VFEXC 




MOVB 


♦i.SWBFLG 




MOV 


♦ll.CMDPKT*CP 


.CNT 


JSR 


PC.VFEXC 




MOV 


♦ 12,CM0PKT»CP, 


,CNT 


JSR 


PC.VFEXC 




MOV 


•RV.CMOWRO 




JSR 


PC.VFEXC 




MOV 


*11,CMDPKT*CP, 


,CNT 


JSP 


PC.VFEXC 




CLRB 


SUBFLG 




MOV 


♦12.CM0PKT.CP 


.CNT 


JSR 


PC.VFEXC 




MOV 


*11.CMDPK1*CP, 


»CKT 


JSR 


PC.VFEXC 





iSWAP DATA BYTES IN WRITE BUFFER. 

jSET U iiWAP BtTES FlAG FOH "CKDATA ■• S'JBR 

JSUBTE5T 12 - READ SWAPPED DATA BtTES. 

TRAP ClBSUB 

»CMD IS R£AO REV. 

i VERIFY (TOO LENGTH SWAP (RECORD 4). 
iCHANGE BYTE COUNT TO 10. 
i VERIFY EVEN LENGTH SWAP (RECORD 5). 
I ENABLE BYTE SWIPING. 
iCMANGE BYTE COUNT TO 9. 
iVERIFy 000 LENGTH SWAP (RECORD ?>. 
1 CHANGE BYTE COUNT TO 10. 
iVtRIFY EVEN LENGTH SWAP (RECORD n. 
iCMD IS R€AO FUO. 

l VERIFY EVEN LENGTH SWAP (RECORD 1). 
iCMANGE BYTE COUNT TO 9. 
i VERIFY 000 LENGTH SWAP (RECORD t M. 
lOISASLE BYTE SWAPPING. 
jCMANGE BYTE COUNT TO 10. 
j VERIFY EVEN LENGTH SWAP (RECORD 5). 
j CHANGE BYTE. COUNT TO 9. 
i VERIFY QOQ LtNGTH SWAP (RECQftD 4). 
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3685 025064 




025064 




025064 


104403 


368b 




368T 025066 


105037 003523 


3686 




3689 0250 72 




025072 


104432 


025074 


000574 


3690 




3691 




3692 




3693 




3694 




3695 




3696 




3697 025076 


012701 00354C 


3698 025102 




3699 025102 


021227 177777 


3700 025106 


OO1402 


3701 025UC 


012221 


3 702 




3703 025112 


000773 


3 704 025114 




3 705 025114 


0127U 177777 


3 706 025120 


000207 


3707 




3 708 




3709 




3710 




3711 025122 


140004 


3712 025124 


0OO200 


3713 025126 


0OOO01 


3714 025130 


OOOOOO 


3715 025132 


10OO13 


3716 025134 


00O001 


3717 025136 


0OO001 


3718 025140 


OOOOOO 


3 719 025142 


14OO04 


*»720 025144 


0OOO20 


3721 025146 


0OOO01 


37?2 025150 


OOOOOO 


3723 025152 


10OO17 


3 724 025154 


000001 


3725 025156 


00O001 


3 726 02516O 


OOOOOO 


3727 025162 


140004 


3728 025164 


000040 


3729 025166 


00OO01 


3730 025170 


OOOOOO 


373i 025172 


177777 


3/32 




3733 025174 


102010 


3734 025176 


0OO001 


3 735 025200 


000002 


3756 025202 


OOOOOO 


3737 035204 


1777/7 



MAP rt4 OH;'/ * A;,* 1 t 7*. 



•- . l J 



'**'* 0H9 



1.10033 



1-NDvjr 
Cl «B 



riswe 

TST 



'PAP CiFVJB 
jCl EAR T l SWAP B'TrS fi.Afj 

r PAp cje/; t 

.WORD 1. 1001' 



SUBROUTINE TO MOVF A COMMAND SE CJUENCE To 'ME SEQUENCE TABLE. 
I^UT?: R2 - FWA OF COMMAND SEQUENCE. 

OUTPUTS: 
REGISTERS; 

CALLS: 



BFSEO: 

5C420C 



MOV ♦CMDSEQ.Rl 

jWHILE (R2) NE #fND DO 
CMP (R2),#€NU 

BEQ 504211 

MOV CR?)»,(R1>* 



50421$ 



BR 

MOV 
RTS 



5O420* 

♦ENO.CRl) 
PC 



BASIC FUNCTION COMMAS SEQUENT 



BFSF.OO: 


■ WORD 


SCH 
200 

1 



DPI 

1 

1 



SCH 

20 

1 



GES 

1 

1 



SCH 

40 

1 






.UORD 


END 


BFSEOil 




RWD 
1 
2 





.WORD 


END 



iIMT SEQ TAfll L ADDRESS. 

I WHILE THERE ARE MORE COMMAND';,; 



jMOVE COMMANDS TO ScQ TABLE. 



: STORE FNO OF SEQUENCE COOE . 
j RE TURN. 



j SET CHAR. 200. 
j DRIVE INIT. 
;SET CHAR. 20 
sGET STATUS. 
j SET CHAR. 40. 



ci; 



(2) 



(3) 



(4) 



C5) 



IREWINO TWICE. 



(6) 



I I 



HARDwARt 
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TEST i: BASIC FACTIONS 
3 738 



r ^ f j 01>0 



3759 


025206 


104105 


3740 


025210 


004000 


3741 


025212 


000001 


3742 


025214 


OOOOOl 


3743 


025^16 


104105 


3744 


025220 


004000 


7 '45 


025222 


OOOOOl 


3 746 


025224 


00O002 


3747 


025226 


104105 


3748 


025230 


0O4000 


:J74* 


02523 2 


OOOOOl 


37S0 


025234 


000003 


37M 


025236 


104105 


3752 


025240 


0O4000 


3753 


025242 


OOOOOl 


3754 


025244 


0OO004 


37: r » 


025246 


104105 


37^ 


025250 


004000 


3757 


025252 


OOOOOl 


3"'58 


025254 


000005 


3759 


025256 


104105 


3 760 


025260 


0O4000 


3761 


025262 


OOOOOl 


3762 


025264 


000006 


.?763 


025266 


104105 


3764 


025270 


004000 


3 7 65 


025272 


OOOOOl 


376o 


025274 


rooooo 


3/S7 


025276 


177777 


3768 






3769 


025 3O0 


1OO011 


3 770 


025302 


000001 


3771 


025304 


OOOOOl 


3772 


025306 


OOOOOO 


3773 


025310 


104005 


3774 


025312 


004000 


3775 


025314 


0OO010 


3776 


025316 


C00001 


3777 


025320 


10O411 


3778 


025322 


OOOOOl 


3779 


025324 


0OO010 


37GO 


025326 


OOOOOO 


3781 


025330 


100011 


3762 


025332 


OOOOOl 


3783 


025334 


OOOOOl 


3784 


025336 


OOOOOO 


3V85 


025340 


101011 


3766 


025342 


OOOOOl 


3787 


025344 


OOOOOl 


3788 


025346 


OOOOOO 


T 789 


025350 


177777 


3 790 






3791 


0253*2 


105410 


3792 


0253V4 


000002 


3793 


025356 


OOOOOl 


3794 


025360 


OOOOOO 



RFTitCtt: 



.WORD 



BFSEQ3: 



.WORD 



BFSEQ4: 



wT; 

DATCNl 

1 

1 

WTV 

DATCNT 

1 

?. 

WTV 

DATCNT 

1 

? 

WTV 

DATCNT 

1 

4 

WTV 

DATCNT 

1 

5 

WTV 

DATCNT 

1 

6 

WTV 

DATCNT 

1 



END 

WTM 

1 

1 



WRT 

DATCNT 

10 

1 

ERS 

1 

10 



WTM 

1 

1 



WTR 

1 
1 

ENO 

5FR 

2 
1 




(WRITE/VERir* PAT 1. f 7 ; 



jW T V PM ?, 

jWTV PA T 3. 

;WTV PAT 4. 

jWTV PAT 5. 

;WTV PAT 6. 

jWTV PAT 0. 



Hi 



(9) 



CIO) 



( 11) 



C12) 



(13) 



; WRITE TAPE MARK. 



; WRITE 10 RECORDS 



;ERASE 10 TIMES. 



; WRITE TAPE MARK. 



jWTM RETRY 



(14) 



(15) 



(16) 



(17) 



(18) 



j SPACE 2 FILES REV. 



(19) 



riu 
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3 795 


025362 


105010 


3796 


025364 


000002 


3797 


025366 


OOOOOl 


3798 


025370 


OOOOOO 


3 799 


025372 


105410 


3500 


025374 


OOOOOl 


3801 


025376 


0OOO02 


3802 


025400 


000000 


3803 


025402 


105010 


3804 


025404 


OOOOOl 


3505 


025406 


000002 


3806 


025410 


OOOOOO 


3807 


02541J 


177777 


3808 






3809 


025414 


102010 


3810 


025416 


OOOOOl 


3811 


025420 


OOOOOl 


3812 


025422 


OOOOOO 


3813 


025424 


104010 


3814 


025426 


000007 


3815 


025430 


OOOOOl 


3816 


025432 


OOOOOO 


3817 


025434 


104410 


3818 


0254 3o 


000007 


3819 


025440 


OOOOOl 


3620 


025442 


OOOOOO 


3821 


025444 


104010 


3822 


025446 


OOOOOl 


3823 


025450 


000007 


3824 


025452 


OOOOOO 


3821 


025454 


104410 


3826 


025456 


OOOOOl 


3827 


025460 


0OOO07 


3828 


025462 


OOOOOO 


3829 


025464 


177777 


3830 






3831 


025466 


102010 


3832 


025470 


OOOOOl 


3833 


025472 


OOOOOl 


3834 


025474 


OOOOOO 


3835 


025476 


104005 


3856 


0255O0 


004000 


3837 


025502 


OOOOOl 


3838 


025504 


OOOOOl 


3839 


025506 


105O05 


3840 


025510 


0O4000 


3841 


025512 


OOOOOl 


3842 


025514 


OOOOOl 


3843 


025516 


100011 


3844 


025520 


OOOOOl 


3845 


025522 


OOOOOl 


3846 


025524 


OOOOOO 


3847 


025526 


105410 


3848 


025530 


OOOOOl 


3849 


025532 


OOOOOl 


3850 


025534 


OOOOOO 


3851 


025536 


177777 



.WORD 



BFSEQ5; 



.WORD 



BFSEQ6: 



.WORD 



? 
1 

SFR 

1 
? 

SFf 

1 

c> 



END 

RWD 

1 

I 



SRF 

7 

1 



SRR 

7 

1 



SRF 

1 

7 



SRR 

1 

7 



ENO 

RWO 

1 

1 



WRT 

OATCNT 

1 

1 

WRR 

DATCNT 

1 

1 

WTM 

1 

1 



SFR 

1 

1 



END 



SEQ 0121 



j SPACE 2 FILES FWD. 



;SPACE ?. FILES REV. 



j SPACE 2 FILES FWD. 



(?0) 



f?l) 



(22) 



{REWIND. 



(23) 



{SPACE 7 RECORDS FUJD. (24) 



{SPACE 7 RECORDS REV. (25) 



{SPACE 7 RECORDS FWO. (26) 



{SPACE 7 RECORDS REV. (27) 



{REWIND. 



{WRITE. 



{WRITE RETRY. 



{WRITE TAPE MARK. 



j SPACE 1 FILE REV. 



(28) 



(29) 



(30) 



u 
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TEST 1: BASIC FUNCTIONS 



3852 
3853 
3654 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
"867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3676 
3877 
3878 
3879 
3880 
3881 
3862 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 



3903 
3904 
3905 
3906 



025540 
025542 
025544 
025546 
025550 
025552 
025554 
025556 
025560 
025562 
025564 
025566 
025570 

025572 
025574 
025576 
025600 
025602 
025604 
025606 
025610 
025612 
025614 
025616 
025620 
025622 

025624 
025626 
025630 
025632 
025634 
025636 
025640 
025642 
025644 

025646 
025650 
025652 
025654 
025656 
025660 
025662 
025664 
025666 



025670 
025670 
025670 



104401 
004000 
000001 
000001 
105401 
004000 
000001 
000001 
125401 
004000 
000001 
000001 
177777 

104001 
004000 
000001 
000001 
105001 
004000 
000001 
000001 
125001 
0O4000 
000001 
000001 
177777 

101012 
000001 
000001 
000000 
102010 
000001 
000001 
000000 
177777 

104105 
000012 
OOOOOl 
000000 
104105 
000011 
OOOOOl 
000000 
177777 



104401 



BFSEQ7: 



♦ WORD 



BFSEQ8: 



.WORD 
BFSEQ9: .WORD 



.WORD 



BFSE10: 



SEQ 01*2 



L. 1001 7: 



.WORD 
.EVEN 

ENDTST 



RDR 

DATCNT 

1 

1 

RNR 

DATCNT 

1 

1 

RNF 

DATCNT 

1 

1 

END 

RDF 

DATCNT 

1 

I 

RPF 

DATCNT 

1 

1 

RPR 

DATCNT 

1 

1 

END 

CLN 

1 

1 



RWO 

1 

1 



END 

WTV 

12 

1 



WTV 

11 

1 



END 



{READ REV. 



;READ NEXT REV. 



{READ NEXT FWD . 



( 31) 



'32) 



C33) 



;READ FWD. 



{READ PREVIOUS FWD. 



{READ PREVIOUS REV. 



(34) 



(35) 



(36) 



{CLEAN. 



{REWIND 



(37) 



(38) 



{END OF" SEQUENCE. 
:WRITE/VERIFY EVEN LENGTH. 

{WRITE/VERIFY ODD LENGTH. 



(39) 



(40) 



TRAP C5ETST 



.SBTTL TEST 2: DATA RELIABILITY. 
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TEST 2: DATA RELIABILITY. 



GIG 



SEQ 0123 



3907 






3908 






3909 025672 






025672 






3910 






3911 025672 


112737 


000001 003515 


3912 025^00 


105037 


003514 


3913 025704 


005037 


003456 


3914 025710 


004737 


017102 


3915 025714 


004737 


007072 


3916 025720 


103404 




3917 025722 






025722 


104455 




025724 


000002 




025726 


004536 




025730 


006120 




3918 






3919 025732 


004737 


007466 


3920 025736 


012702 


0040O0 


3921 025742 


005302 




3922 025744 


010237 


003430 


3923 025750 


005137 


003430 


3924 025754 


004737 


010162 


3925 025760 


105737 


003526 


3926 025764 


001417 




3927 025766 


004737 


CIC206 


3928 025772 


105037 


003526 


3929 






3930 025776 






3931 025776 


012721 


104105 


3932 026002 


012721 


004 COO 


3933 026006 


012702 


177740 


3934 026012 


005102 




3935 026014 


010221 




3936 026016 


012721 


0^0007 


3937 






3938 026022 






02602? 


104422 




3939 






3940 026024 






3941 026024 


Oc.0127 


* 0374V 


3942 026030 


00201? 




3943 026032 


063737 


003432 003434 


3944 026040 


01370* 


003434 


3945 026044 


042/02 


177741 


3946 026050 


0047 7?, 


026206 


3947 






3948 026054 


00076? 




3949 026056 






3950 026056 


012711 


177777 


3951 026062 


004 737 


010226 


3952 






3953 026066 


012701 


003540 


3954 026072 


005702 




3955 026074 


001752 




3956 026076 


105237 


003524 


3957 026102 


000240 





! TEST TO CHECK THE DATA RELIABILITY OF THE TS05. 

BGNTST 



T2:: 



MOVB 


01, RANDOM 


CLRB 


EXPBOT 


CLR 


WTMFLG 


JSR 


PC.F'IRSTU 


JSR 


PC.SOFINIT 


BCS 


11$ 


ERRDF 


2.NSSRM.STAERM 



;SET THE RANDOM OPERATIONS FLAG. 

;CLEAR EXPECT BOT FLAG. 

; CLEAR WRITE TAPE MARK FLAG 

{FIND THE FIRST UNIT. 

lINIT DEVICE 

;REPORT TS05 NOT READY 



TRAP 


C$ERDK 


.WORD 


2 


.WORD 


NSSRM 


.WORD 


STAERM 



11$: 


JSR 


PC.MDSET 




MOV 


♦0ATCNT.R2 




DEC 


R2 




MOV 


R2.LENMSK 




COM 


LENMSK 




JSR PC, 


.SETCH 




TSTB 


STAFLG {IFB S 




BEQ 


50424$ 




JSR 


PC.SETRW 




CLRB 


STAFLG ;LET 


50422$: 








MOV 


*WTV,(R1)* 




MOV 


•DATCNT.CRn* 




MOV 


♦RN0PSC.R2 




COM 


R2 




MOV 


R2.CR15* 




MOV 


ORANP.CRD* 


50423$: 


BREAK 




50424$: 








CMP 


Rl f *SEGEND 




BGE 


50425$ 




ADD 


RANB.RANS 




MOV 


RANS.R2 




BIC 


♦177741, R2 




JSR 


PC,SRANCMD(R2) 




BR 


50424$ 


50425$: 








MOV 


•EN0.CR1) 




JSR 


PC.EXALL 




MOV 


*CMDSEQ,R1 




TST 


R2 




BEQ 


50423$ 




INCB 


ALLEOT 




NOP 





;G0 DO SETUP'S 

{SET UP THE RECORD LENGTH MASK, 

; ALLOW MAXIMUM BUFFER. 

;CMD 1 - SET CHARACTERISTIC. 

THEN j IF STARTING THEN 



j CM02 -REWIND 
.-LET STAFLG :B* 00 



;CLR START FLAG. 



; DO A SUP'.-'r; BRF.AK FIRST. 

TRAP C $BRK 

;FILL SEQ TBL WITH RANDOM CMOS. 



{LET RANS :- RANS * RAN6 



; SET UP A RANDOM CMD ♦ BRF 



{STORE ENO OF SEQUENCE CODE IN TABLF . 
;G0 EXECUTE ALL CMOS IN SEQUENCE TABLE 

jINIT CMO SEQ TBL POINTER, 

{REPEAT UNTIL EOT IS REACHED 

{FLAG ALL UNITS a EOT 



H i 
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SEQ 01*4 



3958 


026104 


000240 




3959 


026106 


000240 




3960 


026110 


004737 


027662 


3961 








3962 








3963 








5964 


026114 


004737 


026246 


3965 


026120 


012737 


177740 003544 


3966 


026126 


005137 


003544 


3967 


026132 


013737 


003544 003554 


3963 


026140 


012711 


177777 


3969 


026144 


004737 


010226 


3970 


026150 


105037 


003524 


3971 


026154 


112737 


000001 003517 


3972 


026162 


012701 


003540 


3973 


026166 


004737 


010206 


3974 


026172 


012711 


177777 


3975 


026176 


004737 


010226 


3976 








3977 


026202 








026202 


104432 






026204 


000320 




3978 








3979 








3980 








3981 








3982 


026206 


026360 




3983 


026210 


026404 




3984 


026212 


026360 




3985 


026214 


026360 




3986 


026216 


026360 




3987 


026220 


026360 




3988 


026222 


026360 




3989 


026224 


026360 




3990 


026226 


026246 




3991 


026230 


026246 




3992 


026232 


026246 




3993 


026254 


026246 




3994 


026236 


026246 




3995 


026240 


026246 




3996 


026242 


026246 




3997 


026244 


026246 




3998 








3999 








4000 








4001 








4002 








4003 








4004 








4005 








4006 


026246 


005737 


003456 


4007 


026252 


001406 




4008 


026254 


004737 


026416 


4009 


026260 


004737 


026444 


4010 


026264 


005037 


003456 


4011 


026270 


020127 


003740 


4012 


026274 


002030 





NOP 




NOP 




JSR 


PC.T5WE0T 


JSR 


PC, RANRD 


MOV 


ORN0PSC,CMDSEQ*4 


COM 


CMDSEQ*4 


MOV 


CMDSEQ*4.CMDSEQ* 


MOV 


OENO.(Rl) 


JSR 


PC.EXALL 


CLRB 


ALLEOT 


MOVB 


Ol.PPTFLG 


MOV 


^CMOSEQ.Rl 


JSR PC 


SETRU 


MOV 


0END.CR1) 


JSR PC 


EXALL 



{WRITE ONE RECORD BEYOND EOT ON ALL UNITS 

{SO THAT SHORTER READ STOP DISTANCE 
j SHALL POSITION HEAD IN CLEAN IRG GAP 

;READ REV THAT EXTRA REC TO RE -POSITION THE TAPE 
sSET UP READ REV/FWO CMOS, 
;0 OF RECORDS FOR READ REV. 



14 



4 OF RECORDS FOR READ FORWARD. 

STORE END OF SEQUENSE CODE IN SEQ TABLE. 

GO EXECUTE READ REV/FWO OF LAST N RECORDS 

CLEAR ALL UNITS S EOT FLAG 

REQUEST PERFORMANCE REPORT DURING REWIND. 

INIT SEQ TBL POINTER, 

STORE REWIND IN SEQ TBL, 

STORE END IN SEQ TBL, 

EXECUTE REWIND CMD ON ALL UNITS 



EXIT 



TST 



TRAP 
.WORD 



C*EXI r 
L10034 



ADDRESSES Of SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 



RANCMO: RANWR 
RANWV 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 



; WRITE 

{WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
READ. 

{READ. 

{READ. 

{READ. 

{READ. 
READ. 
READ. 
READ. 



RANRD 



1$: 



SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: 

{WAS LAST CMO A WRITE? 

j NO, GO AHEAD 
YES PUT DOWN TAPE MARK 
ANO SPACE FILE REV 
THEN CLEAR THE FLAG 



TST 


WTMFLG 


BEQ 


1$ 


JSR 


PC,RAWTM 


JSR 


PC.RASFR 


CLR 


WTMFLG 


CMP 


Rl.OSEQEND 


BGE 


2$ 



I 'I I \ 
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TEST 2; DATA RELIABILITY , 



SEQ 01*6 



4070 








40^1 








4072 








4073 








4074 








4075 


026444 


020127 


003740 


4076 


026450 


002007 




4077 


026452 


012721 


105410 


4078 


026456 


012721 


000001 


4079 


026462 


012721 


000001 


4080 


026466 


005721 




4081 


026470 


000207 




4082 








4083 








4084 








4085 








4086 








4087 








4086 








4089 








4090 








4091 


026472 


012721 


004000 


4092 








4093 


026476 


063737 


003434 


4094 


026504 


013702 


003432 


4095 


026510 


042702 


177740 


4096 


026514 


010221 




4097 


026516 


012721 


000007 


4098 


026522 


000207 




4099 








4100 








4101 








4102 


026524 
026524 








026524 


104401 




4103 








4104 








4105 








4106 








4107 








4108 








4109 








4110 


026526 
026526 






4111 








4112 


026526 


112737 


000001 


4113 


026534 


105037 


003514 


4114 








4115 


026540 


004737 


017102 


4116 


026544 


004737 


007072 


4117 


026550 


103404 




4118 


026552 








026552 


104455 






026554 


000002 






026556 


004536 






026560 


006120 





RASFR 



1$: 



003432 



L 10034 
.SBTTL 



T3:: 



003515 



INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


CMP 
BGE 

MOV 
MOV 
MOV 
TST 


Rl,#SEQEND 

1* 

0SFR,(R1)» 

n,(RD» 

oi.CRl)* 
tRl)* 



RTS PC 



{STORE SPACE FILE REVERSE 

;BRF 

;* OF OPERATIONS 

{SKIP PATTERNS 



SUBROUTINE TO STORE BRF, OF OPERATIONS, PATTERN IN COMMAND 

SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: 



RANW:: MOV 



ODATCNT.CRl)* 

RANS,RANB 

RANB.R2 

ORN0PSC.R2 

R2.CRD* 

ORANP,(Rl)f 



ADD 
MOV 
BIC 
MOV 
MOV 
RTS PC 

.EVEN 

ENDTST 



TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 



; SET BRF TO MAX FOR PATTERN GENERATION 
{RANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
;LET RANB :- RANB ♦ RANS 
{LET R2 :- RANB CLR.Br WNOPSC 

{SET RANDOM * OF OPERATIONS. 
{RANDOM PATTERN. 
{RETURN. 



TRAP 



C$ETST 



TEST TO WRITE RECORDS FROM BOT TO EOT. 



BGNTST 



4119 



MOVB 


01, RANDOM 


jSET THE RANDOM OPERATIONS FLAG. 


CLRB 


EXPBOT ;LET EXPBOT 


iB* 00 {CLEAR EXPECT BOT FLAG 


JSR 


PC.FIRSTU 


{FINO THE FIRST UNIT, 


JSR 


PC.SOFINIT 


jINIT DEVICE 


BCS 


11$ 




ERRDF 


2,NSSRM,STAERM 


{REPORT TS05 NOT READY 

TRAP C5ERDF 
.WORD 2 
.WORD NSSRM 
.WORD STAERM 



K10 
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SEQ 0127 



4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 

4129 

4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 



4156 
4157 
4158 
4159 



4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 

4169 
4170 



026562 
0265ti6 
026572 
026574 
026600 
026604 
026610 
026614 
026620 
026620 

0266.12 
026622 
026626 
026630 
026634 
026636 
026636 
026642 
026646 
026652 
026654 
026656 
026662 
026664 
026666 
026670 



026674 
026700 
026704 
026710 



026714 

026714 
026716 



026720 
026720 
026720 



004 737 
012702 
005302 
010237 
005137 
004737 
004737 
105037 

104422 



020127 
002003 
004737 
000772 

012711 
004737 
012701 
005702 
001761 
105237 
000240 
000240 
000240 
004737 



105037 
004737 
012711 
004737 



104432 
000002 



104401 



007466 
004000 

003430 
003430 
010162 
010206 
003526 



003740 
026360 



177777 
010226 
003540 



003524 



027662 



003524 
010206 
177777 
010226 



11<: 


.j<;r 


PC.MDSET 




MOV 


4DATCNT.R2 




DEC 


R2 




MOV 


R2.LENMSK 




COM 


lENMSK 




JSR PC 


SETCH 




JSR PC 


SETRW 




CLRB 


STAFLG }L 


50426$; 


BREAK 




50427$: 








CMP 


Rl.tfSEQEND 




8GE 


50430$ 




JSR 


PC.RANWR 




BR 


50427$ 


50430$: 








MOV 


4END,(RL) 




JSR 


PC.EXALL 




MOV 


4CMDSEQ.R1 




TST 


R2 




BEQ 


50426$ 




INCB 


ALLEOT 




NOP 






NOP 






NOP 






JSR 


PC.TSWEOT 



jLE'i STAFLG :B* #0 



{GO DO SETUP'S 

;SET UP THE RECORD LENGTH MASK. 

; ALLOW MAXIMUM BUFFER. 

{CMD 1 = SET CHARACTERISTIC. 
;CMD2-REWIND 



00 A SUPVSR BREAK FIRST. 



{CLEAR START FLAG 



TRAP 



C$BRK 



5WHILE THERE IS MORE ROOM IN SEQ TABLE: 



CLRB ALLEOT 
JSR PC, SETRW 
MOV 4END,(R1) 
JSR PC.EXALL 



EXIT TST 



{STORE A WRITE CMD IN SEQUENCE TABLE 



{STORE END OF SEQUENCE CODE IN TABLE. 

{EXECUTE ALL CMOS IN SEQ TBL ON UNITS, 
;INIT SEQ TBL POINTER, 
{REPEAT UNTIL EOT IS REACHED 

;SET ALL UNITS 5) EOT FLAG 



{WRITE ONE RECORD BEYOND EOT ON ALL UNITS 

{SO THAT SHORTER READ STOP DISTANCE 
{SHALL POSITION HEAD IN CLEAN IRG GAP 
{READ REV THAT EXTRA REC TO RE-POSITION TAPE 
{CLEAR ALL UNITS S EOT FLAG 
STORE REWIND IN SEQ TBL, 
STORE END IN SEQ TBL, 
EXECUTE REWIND CMD ON ALL UMTS 



TRAP 
.WORD 



CJEXI. 
L10035 



L10035: 



.EVEN 
ENDTST 



TRAP 



C$ETST 



026722 
026722 

026722 112737 000001 



.SBTTL TEST 4- READ COMPATABILITY/RRAD UTILITY. 



TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 



BGNTST 



T4j j 
003515 MOVB #1, RANDOM 



;SET THE RANDOM OPERATIONS FLAG 



10 
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SEQ 0128 



4171 


026730 


112737 


000001 003514 


4172 








4173 


026736 


004737 


017102 


4174 


026742 


004737 


007072 


4175 


026746 


103404 




4176 


026750 








026 750 


104455 






026752 


000002 






026754 


004536 






026756 


006120 




4177 








4178 


026760 


004737 


007466 


4179 


026764 


004737 


010162 


4180 


026770 


004737 


010206 


4181 


026774 


105037 


003526 


4182 


027000 


012721 


104001 


4183 


027004 


012721 


004000 


4184 


027010 


012721 


077777 


4185 


027014 


012721 


000007 


4186 


027020 


012711 


177777 


4187 


027024 


004737 


010226 


4188 


027030 


10S237 


003524 


4189 


02703^ 


012701 


003540 


4190 


027040 


012721 


104401 


4191 


027044 


012721 


004000 


4192 


027050 


012721 


077777 


4193 


027054 


012721 


000007 


4194 


027060 


012711 


177777 


4195 


027064 


C04737 


010226 


4196 


027070 


105037 


003524 


4197 








4198 


027074 








027074 


104432 






027076 


000002 




4199 








4200 








4201 








4202 


027100 

027100 








027100 


104401 




4203 








4204 








4205 








4206 








4207 








4208 








4209 








4210 


027102 
027102 






421 1 








42 V2 


027102 


105037 


003515 


i.'7>i ', 


027106 


112737 


000001 003514 


* ".. .! 'v 

4215 


027114 


004 737 


017102 


4216 


027120 


004737 


007072 


4217 


027124 


103404 




4218 


027126 







MOVB 


41.EXPB0T 


;SET EXPECT dOT FLAG. 






JSR 


PC.FIR3TU 


;FIND THE FIRST UNIT. 






JSR 


PC.SOFINIT 


fINIT DEVICE 






BCS 


11$ 








ERRDF 


2, NSSRM, STAERM 


{REPORT TS05 NOT READY 


TRAP 
.WORD 
.WORD 
.WORD 


C*ERDF 
2 

NS5RM 
STAERM 



11$ J 



JSR 


PC.MDSET 


JSR PC 


SETCH 


JSR PC 


SETRW 


CLRB 


STAFLG {LET 


MOV 


3RDF.CR1)* 


MOV 


OOATCNT.CRl)* 


MOV 


#77777, (RD* 


MOV 


0RANP.CR1)* 


MOV 


*EN0,(R1) 


JSR 


PC.EXALL 


INCB 


ALLEOT 


MOV 


0CMDSEQ.R1 


MOV 


♦RDR.CRD* 


MOV 


#DATCNT # (R1)* 


MOV 


$77777, (Rl)f 


MOV 


dRANP.CRl)* 


MOV 


OENO.CRl) 


JSR 


PC.EXALL 


CLRB 


ALLEOT 



GO DO SETUP'S 

CMD 1 » SET CHARACTERISTIC. 
CMD2-REWIND. 
STAFLG ;B* 00 {CLEAR START FLAG 

CMD3 - READ FORWARD. 

SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
PATTERN - RANDOM. 

STORE END OF SFQUENCE CODE IN TABLE. 
{EXECUTE ALL CMO°> IN SEQ TBL ON ALL UNITS. 
{FLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
INIT CMO SEQ TBL POINTER. 
CMD1 - READ REVERSE. 

SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
RECORD COUNT - MAX FOR WHOLE TAPE. 
PATTERN - RANDOM. 

STORE ENO OF SEQUENCE CODE IN TABLE. 
GO EXECUTE READ REV. OF ENTIRE TAPE. 
CLEAR ALL UNITS 3 EOT FLAG 



EXIT TST 

.EVEN 

ENDTST 
L 10036: 

.SBTTL TEST 5j EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 



TRAP 
.WORD 



c*exit 

L 10036 



TRAP C$ETST 



T5:: 



BGNTST 



CLRB 

MOVB 

JSR 
JSR 
BCS 
ERRDF 



RANDOM 
Ol.EXPBOT 

PC.riRSTU 

PC.SOFINIT 

11$ 

2, NSSRM, STAERM 



{CLEAR RAMDOM MODE FLAG 
{SET EXPECT BOT FLAG. 

{FIND THE FIRST UNIT. 
{INIT DEVICE 

{REPORT TS05 NOT READY 



NIC 
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SEQ 01- SO 



4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
42/8 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4 298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 



027410 
027410 
027416 
027420 
027424 
027430 
027436 
027440 

027444 
027444 
027450 
027454 
027460 
02 7460 
027466 
027470 
027476 
027500 
027506 
02751C 

027512 

027512 
027514 
027514 
027522 
027524 
027532 
027534 

027534 

027536 

027536 
027536 

027542 
027544 
027544 
027550 
027552 
027560 
027564 
027570 
027576 
027600 

027604 

027604 
02 7606 
027606 

027612 
027612 



023737 
002103 
004737 
004737 
023727 
001002 
004737 



004737 
012702 
004737 

026527 
001426 
032737 
001406 
032765 
001001 
005002 



000411 

032765 

001404 
032737 
001001 



00473/ 

000746 

020227 
001016 
013737 
005237 
105237 
023727 
001002 
004737 



000402 
105037 

005237 



003412 003414 



011064 
010524 
003420 

017412 



017500 
000001 

017102 

002604 
000400 
000002 



000001 
000001 



017150 



000001 

003412 
003414 
003524 
003426 

027662 



003524 
003412 



50433$ 



100017 



; WHILE NCNT LT NCNTl DO 
CMP NCNT, NCNTl 
BGE 50434$ 

JSR PCCMOAC 
JSR PC.fcXSUB 
CMP CMDWRD,#GES 
BNE 50435$ 

JSR PC.PRXST 



; WHILE THERE ARE RECORDS REMAINING: 



; STORE CMD ASCII IN ERROR MSG. 

;TSSUE CMO TO ALL. .AWAIT INTS, CHECK STATUS 

j IF CMD IS GET STATUS THEN: 

;PRINT EXTENDED STATUS REGISTERS, 



177777 
003420 
003502 



50435$ 



50436$ 



003502 
003420 



50441$ 
50440$ 

50443$ 

50444 $ 
50442$ 

50437$ 



003414 
000002 



50446$ 
50445$ 
50447$ 



JSR PC.CKHAE j CHECK HALT AFTER EACH CMD FLAG. 

MOV A1.R2 {SET ALL UNITS AT HOT/EOT. 

JSR PC # FIRSTU jFIND FIRST UNIT. 

sWHILE DEVTBLCR5) NE «END DO ;WHILE THERE ARE MORE UNITS: 



CMP 
BEQ 

BIT 
BEQ 
BIT 
BNE 
CLR 



BR 

BIT 
BEQ 
BIT 
BNE 



CLR 



DEVTBL(R5),#END 

50437$ 

4M0D.C0,CMDWRD 

50440$ 

<?XO.B0T,EUTFLG(R5) 

50441$ 

R2 



50442$ 

4X0.E0T.E0Tn.GCR5) 
50443$ 

4CMD.C0.CMDWRD 
50444$ 



ilF CMD IS REVERSE THEN: 

j IF NOT AT BOT VHEN: 
5 CLEAR EOT/BOT FLAG. 



;ELSE IF CMD IS NOT REVERSE 



R2 



JSR PC.NEXTU 

BR 50436$ 

CMP R2.01 

BNE 50445$ 

MOV NCNT, NCNTl 

INC NCNTl 

INCB ALLEOT 

CMP ChDLG.02 

BNE 50446$ 

JSR PC.T5WE0T 



BR 50447$ 
CLRB ALLcOT 



;IF NOT AT EOT OR NOT A MOTION CMD THEN: 

{LET R2 := 40 jCLEAR EOT/BOT FLAG 



;FIND NEXT UNIT 

» 

{IF ALL UNIT ARE AT EOT/BOT THEN: 

jFORCE TERMINATION OF COMMAND. 

;FLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
:WHEN WRITING IS CURRENT COMMAND 

5 GO WRITE/READ REV ONE RECORD BEYOND EOT 



INC 



NCNT 



j WHEN NOT ALL SEOT, CLEAR FLAG 



jUPDATE RECORD COUNT. 
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TEST 5: EXECUTE OPERATOR 'M f C'fcD COMMAND SEQUENCE . 



SF', 015; 



4321 


027616 


013757 


0034«?r 


0034^4 


4SJ2 










4 32 3 


02 7624 


0006 n 






4 324 


0? 7626 








4 325 


027626 


004 73/ 


016066 




4 326 










4 32 ? 










4^>e 


027632 


000601 






4 329 


027634 








4 330 










4331 


02 76.34 
02-6 34 
027636 


1044 52 
000140 






433.? 










4535 










4334 










4535 










4336 










4557 










4 336 










4339 










4340 


0276*0 


012205 






4341 


027642 


0O5303 






434? 


027644 


006303 






4343 


027646 


016321 


003752 




4 344 


027652 


012221 






4345 


027654 


012221 






4346 


027656 


012221 






4347 


027660 


0O0207 






4348 










4349 










4350 










4551 










4 352 










4353 










4 354 










4 555 


027662 


000240 






4356 


027664 


0OO240 






4357 


027666 


0O4737 


010524 




4 35C 


027672 


004737 


017500 




4 359 










4360 


027676 


012700 


000002 




4361 


027 702 


013737 


003420 


003424 


4362 


027710 


012737 


104401 


003420 


4363 


027716 


012737 


000004 


003426 


4364 


02/724 


013737 


003420 


002330 


4 365 


027 732 


042737 


004O00 


00233C 


4366 


027740 


013737 


002330 


003422 


4367 


027746 


013/37 


003410 


002532 


4363 


027754 


0O4737 


011064 




4369 


027760 


004737 


010524 




4370 


027764 


0O4737 


017500 




4371 


027770 


005 3O0 






4372 


027772 


001345 






4373 


027774 


000207 






4374 










4375 











50434$: 



504 32$: 



MO, CHOWRD.PCMDWO 

BR 504 5 5 1 

.SR PC.VFfljAT 



j'-avf rptvicxn command */opu. 



;I* * AM -MO hA'. a tjRITF jt» r J ., 'MEN V, 
IVFRIT* THE lAS* N RFCORl/. 0* 'jA?A, 



BP 



EXIT 



504*1$ 



fST 



TPAP 



- $' ' I 

LI 00 5 



SUBROUTINE TO MCVt A COMMAND 'POM TNT. 

THE COMMAND SEQUENCE TA8l f . 

If^UTb: R2 - POINTER TO %OF t 

OUTPUTS: 

REGISTERS: M3, 

CAllS: 



V/T^APf P TAfJif TO 
P' TABl.f 



PTCMOb::M€V 
0€C 
ASL 
MOV 
MOV 
MOV 
MOV 
RTS 



PC 



(R2)*,R3 

R5 

R3 

CMDTBL(R5).(R1 )* 

CR23..CR1 )• 

CR2)*.(»1 )> 

CR2)»,(Ri). 



{ R3 ■ COMMAND TABLE. INDF. / 



j MOVE COMMAND WORD. 

jMOVF # Of B'TES. 

jMOvE ♦ OF OPERATIONS 

,MOVE PATTERN COOE . 



I 



T5WE0T: 



SUBROUTINE 

I*>UTS: 

OUTPUTS; 

REGISTERS: 

CALLS: 



; NOP 
NOP 

JSR pc.exsub 

JSR PC.CKHAE 



TO WRITE THEN PEAO REVERSE ONE RECORD BE'OND EOT 



CMDAC,EXSL«,CKHAE 



II: 



MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

MOV 

MOV 

JSR PC 

JSR PC 

JSR PC 

DEC 

BNE 

PTS PC 

.EVEN 



♦2.R0 

CMDWRO.PCMCUO 

#WR.CMDyR0 

♦4.CMDLG 

CMDWRO.CMDPKT 

•ewf .c.cmdpkt 

CMOPKT.CMOSAV 
OATARO.CMQPKT 

.CMDAC 

.Exsue 

,CKHA£ 
RO 
It 



iWRITE ONE RECORD BEtOND EOT 
,S0 THAT READ SHORTER STOP DISTANCE 
jSMALL POSITION HEAD IN CLEAN IRO GAP 
jSET UP COLTER TOR EOT 

iLET PCMOWO :• CMDi**0 iREPOSITIOK TAPE 
jLET CMDWPO :« #R0» iBEEORE ExTPA RECORD 

jBr READING REVERSE 
iLET CMDPKT :» CMDWRO CLR.B* #*Wf . C 

» LET CMOSAV : CMQPKT , THA T RECORD TO ALLOW 
♦ GP.AOL ,NExT COMtWNQ XN THE 

i TABLE TO RE EXECUTED 



jfOLND EOT tET? 
jNO.'tEP GOING 
1^ES*RETURK 



LJL 



PARAMETER CODING 

SYMBOL TABLE 



MACRO M1200 
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SEO 0141 



SETRW 

SETUP 

SFF 

5FPTBL 

5FR 

S0E1NI 

SRF 

SRR 

STAERM 

STAERi 

STAER2 

STAER3 

STAER4 

STAER5 

STAER6 

STAER7 

5TAFLG 

SVCG8l.= 

SVCINS- 

SVCSUB* 

SVCTAG* 

SVCTST* 

swbflg 

SWB.C i 

SWSET 

S*LSYM= 

TCCRA 

TCCO 

TCC1 

TCC2 

TCC3 

TCC4 

TCC5 

TCC6 

TCC7 

TC2RVN 

TIME1 

TIME2 

TOERM 

TODMh 

TR/.P04 

. ABS. 



010206 
011172 
105010 
002204 
105410 
007072 
104010 
104410 
006120 
006436 
006616 
006675 
006733 
006 7b a 
006562 
006530 
003526 
000000 
000001 
000000 
000000 
000000 
003520 
010000 
004231 
010000 
013414 
013434 
013452 
013470 
013600 
013616 
014232 
014330 
014472 
013576 
003436 
003440 
004453 
004727 
003530 



G 
G 
G 
G 
G 
G 
G 
G 

G 
G 
G 
G 
G 



TRAP4 

TSAK 

TSBA = 

TSC.FC- 

TSC.TC* 

TSOB 

TSMO 

TSNP 

TGSR 

1'SSREG 

TSUNT 

T5VCT 

TS.A16- 

TS.A17- 

TS.N6A» 

TS.NXM-- 

TS.OFL- 

TS.RMR« 

TS.SC - 

TS.SPE- 

TS.SSR- 

TS.UPE- 

TS1M0 

TS5ADR 

TS5CL 

TS5INT 

T55IN0 

TS5IN1 

TS5IN2 

TS5IN3 

1 S5SW 

TS5UNT 

TS5VCT 

T$ARGC- 

TiCOOE- 

T*ERRN« 

TIEXCP- 

T$FLAG" 

T*FREE« 

TiGMAN- 

T*HILI- 



023756 G 

004705 G 

002514 G 

177717 G 

177761 G 

002514 G 

031305 

003534 G 

002524 G 

003454 G 

003532 G 

002534 G 

000400 

001000 

002000 

004000 

000100 

010000 G 

100000 G 

020000 

000200 

040000 

002312 

030040 

002564 

002554 

010034 

010042 

010050 

010056 

0025/4 

030064 

030055 

000003 

001004 

000002 

OOOOOO 

000041 

032016 

OOOOOO 

000010 



G 
G 
G 
G 
G 



G 
G 
G 
G 

G 
G 
G 
G 
G 
G 
G 



TiLAST- 

TSLOLI* 

TSLSYM- 

T$LTNO= 

T$NE5T- 

T$NSO 

T$NS1 

T$NS2 

TiPCNT 

TJPTAB 

T$PTHV 

T$PTNU 

T$SAVL 

T$SEGL 

T$S1ZE 

T*SUBN 

TUAGL 

T$TAGN 

T$TEMP 

TJTEST 

T*TSTM 

T*TSTS 

THAU 

T$*AUT 

T$$CLE 

THDAT 

T$$DU 

TMHAR 

TMHU 

TfllNI 

T$$MSG 

TMPC 

T$*PRO 

THPTA 

T$$RPT 

T$$SOF 

TMSRV 

T$$GU6 

T*$SU 

T$*TE5 



000001 
OOOOOO 
010000 
000005 
177777 
OOOCOO 
000005 
000002 
OOOOOO 
010043 
000001 
000001 
177777 
177777 
00COO5 
OOOOOO 
177777 
010045 
OOOOOO 
000005 
177777 
000001 
010016 
010013 
010014 
010044 
010015 
010040 
010000 
010012 
010003 
000001 
010011 
010043 
010010 
010041 
010007 
010033 
010001 
010037 



032016 000 
OOOOOO 001 
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Tl 


024204 


G 


T1SWB 


C03523 


G 


Tl.l 


024214 




T1.10 


02^624 




Tl.ll 


024644 




T1.12 


024730 




T1.2 


024420 




T1.3 


024444 




T1.4 


024464 




T1.5 


024504 




T1.6 


024524 




T1.7 


024544 




T1.8 


024564 




T1.9 


024604 




T2 


025672 


G 


T3 


02(1526 


G 


T4 


026 722 


G 


T5 


02/102 


G 


T5WE0T 


027662 


G 


UAM 


000200 


G 


UNIWLK 


005653 




UNL 


100412 


G 


UNREC 


003470 


G 


URERM 


005041 


G 


VFEXC 


016152 


G 


VFISU 


016400 


G 


VFYCNT 


003346 


G 


VFYDAT 


016066 


G 


VFYFLG 


003516 


G 


VFY.C > 


C00100 


G 


WAITF 


007204 


G 


WLKCHK 


007356 


G 


WLKZRO 


011734 




WRBC 


002626 


G 


WRECL - 


000020 


G 


WRR 


105005 


G 


WRREC 


002766 


G 


WRT 


104005 


G 


URTChK 


007270 


G 


WRTCHR 


007436 


G 



WRTY 

WRTYCr 

WRT YER 

WRTYFG 

WRUNR 

WSM 

WSMOK 

WSSR 

WT3F 

WTBUF 

WTM 

WTMFLG 

WTR 

WTV 

WTVERM 

WTYBRK 

WTYCMO 

WTYWRD 

X$ALWA 

XSFALS 

X$OFFS 

XSTRUE 

XO.BOT 

XO.EOT 

XO.LET 

XO.ONL 

XO . RLL 

XO.HLS 

XO.TMK 

XO . WLK 

X2.3FE 

X2<EFE 

X2 . OPM 

X3.DCK 

X3.RNY 

X4.HSS 

X4.RCE 

ZROPAT 

*LSTIN 

$LSTTA 



014636 G 
003316 G 
003464 G 
003463 
002776 
140006 
002506 
012700 G 
031355 
002316 G 
100011 G 
003456 G 
101011 G 
104105 G 
004430 G 
015110 
015104 
015106 
OOOOOO 
C00040 
000400 
000020 
000002 G 
000001 G 
020000 G 
OOOIOO G 
010000 G 
040000 G 
100000 G 
O000O4 G 
000100 G 
000200 G 

iooooo r 

C00010 G 
157400 G 
100000 G 
040000 G 
011704 
OOOOOl 
000001 
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en 

a 

t i 
f 1 

Gl 

HI 
II 
w.l 
Kl 
1.1 
Ml 



FT 

g.? 

J? 
K2 

m 



B3 

C3 

D3 

F.3 

> 3 

G.< 
H3 
13 
J3 
K3 
L3 
H3 



.B4 
.C4 

.04 
.F4 
.f-4 
.G4 
.H4 
.14 
.J4 
.K4 

.M't 
...N4 



HS 

us 
KS 

KS 
GS 

HS 
IS 
JS 
KS 
l.S 
MS 
N5 



.B9 
,C9 
.09 
.E9 
.F9 
.G9 
,H9 
. 19 
. J9 
.K9 
.L9 
,M9 
,N9 



B6 
Ct> 
Ob 
£6 
Kfc 
G6 
H6 
T6 
J6 
l<6 
L6 
M6 
N6 



.BIO 
.CIO 
.010 
.E10 
.F10 
.GH) 
,H10 
.110 
. J10 
,K10 
.1.10 
,M10 
.N10 



B7 
C7 
0/ 
E7 
F7 
G7 
H' 
I? 
J7 

k; 
l/ 

M7 
N7 



. ,B11 
. .Cll 
, .011 
. .Ell 
. .FU 
. .Gil 
, .Mil 
. .Ill 
. . Jll 
..Kll 

..LU 



. .08 

. .CB 
. .D8 

. .re 

. .G8 
. ,H8 
. .18 
. . J8 
. .K8 
. .L8 
. ,M8 



